Question

输入n个数 求平均值 用free pascal （新手 急....）

Answer 1

var
n,i,sum,a:integer;
ans:real;
begin
ans:=0;
readln(n);
for i:=1 to n do begin
read(a);
ans:=ans+a;
end;
ans:=ans/n;
writeln(ans:0:2)
end.

Answer 2

Program Zhidao(Input, Output);
Var n, i, Num, Ans: Longint;
Begin
Readln(n);
Ans:= 0;
For i:= 1 to n Do
Begin
Read(Num);
Inc(Ans, Num);//ans累加每个数
End;

Writeln(Ans / n: 0: 2);//输出结果保留两位小数
End.

追问

报错啊..
(9,4)identigier not found "lnc"
(11,1)fatal:syntax error , ; expect but writeln
compilation aborted

追答

Program Zhidao(Input, Output);
Var n, i, Num, Ans: Longint;
Begin
Readln(n);
Ans:= 0;
For i:= 1 to n Do
Begin
Read(Num);
Inc(Ans, Num);
End;
Writeln(Ans / n: 0: 2);
End.
把注释去掉，你用的用该是turbo pascal吧

Answer 3

program exp;
var n,a,i:integer;b:real;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
b:=b+a;
end;
b:=b/a;
writeln(b:10:4);
end.

Answer 4

Program baidu(input,output);
Var
i,n,x:integer;
s:real;
begin
readln(n);
for i:=1 to n do
begin
readln(x);
s:=s+x;
end;
s:=s/n;
writeln(s:0:5