pascal中如何求平均数输入n个正整数,求出这些数的平均数.第一行只有一个正整数:n (1<=n<=1000) 第二行共有n个正整数,数与数之间用一个空格隔开,这些数均不大于3000输出只有一个数:n个数的平均数,保留二位小数如输入31 2 3输出2.00
网友回答
varn,m,i:integer;
x:real;
beginreadln(n);
for i:=1 to n do
beginread(m)
x:=x+m;
end;x:=x/n;
writeln(x:0:2);
readln;
end.======以下答案可供参考======
供参考答案1:
program pingjun;
var n,m,i:integer;
x:real;
beginwriteln(n);
for i:=1 to n do
beginread(m)
x:=x+m;
end;x:=x/n;
writeln(x:0:2);
readln
end.