搜搜做题作业网pascal中如何求平均数
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/04 15:44:02
pascal中如何求平均数
输入n个正整数,求出这些数的平均数.
第一行只有一个正整数：n (1<=n<=1000)
第二行共有n个正整数,数与数之间用一个空格隔开,这些数均不大于3000
输出只有一个数：n个数的平均数,保留二位小数
如输入
3
1 2 3
输出2.00
输入n个正整数,求出这些数的平均数.
第一行只有一个正整数：n (1<=n<=1000)
第二行共有n个正整数,数与数之间用一个空格隔开,这些数均不大于3000
输出只有一个数：n个数的平均数,保留二位小数
如输入
3
1 2 3
输出2.00
var
n,m,i:integer;
x:real;
begin
readln(n);
for i:=1 to n do
begin
read(m)
x:=x+m;
end;
x:=x/n;
writeln(x:0:2);
readln;
end.
n,m,i:integer;
x:real;
begin
readln(n);
for i:=1 to n do
begin
read(m)
x:=x+m;
end;
x:=x/n;
writeln(x:0:2);
readln;
end.