求平均年龄Pascal
答案:2 悬赏:10
解决时间 2021-01-18 19:14
- 提问者网友：椧運幽默
- 2021-01-18 06:29
求平均年龄Pascal
最佳答案
- 二级知识专家网友：独行浪子会拥风
- 2021-01-18 07:35
var
n:integer;
y:array[1..100] of integer;
i,sum:integer;
aver:real;
begin
readln(n);
sum:=0;
for i:=1 to n do begin
readln(y[i]);
sum:=sum+y[i];
end;
aver:=round(sum/n*100)/100;
writeln(aver:10:2);
end.
n:integer;
y:array[1..100] of integer;
i,sum:integer;
aver:real;
begin
readln(n);
sum:=0;
for i:=1 to n do begin
readln(y[i]);
sum:=sum+y[i];
end;
aver:=round(sum/n*100)/100;
writeln(aver:10:2);
end.
全部回答
- 1楼网友：玩家
- 2021-01-18 09:08
var
n,i,x:longint;
ans:extended;//相当于int64的浮点类型
begin
readln(n);//读入人数
for i:=1 to n do
begin
readln(x);//读入具体数据
ans:=ans+x;//片段和思想
end;
ans:=ans/n;//计算平均值
writeln(ans:0:2);//场宽、小数点后的四舍五入
end.
n,i,x:longint;
ans:extended;//相当于int64的浮点类型
begin
readln(n);//读入人数
for i:=1 to n do
begin
readln(x);//读入具体数据
ans:=ans+x;//片段和思想
end;
ans:=ans/n;//计算平均值
writeln(ans:0:2);//场宽、小数点后的四舍五入
end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息