中科新闻网五洲人民齐欢笑杨维忠:解决这个PASCAL问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/29 07:12:54
输入N个数据,求总和与平均!(REAL)
var
a,b,sum:longint;
t:real;
begin
b:=0;sum:=0;
while not eof do begin
readln(a);
inc(b);
sum:=sum+a;
end;
t:=sum/b;
writeln(\'Sum : \',sum);
writeln(\'Average : \',t:0:14);
readln
end.
这么简单还拿来问！
begin
for i:=1 to n do read(a[i]);
for i:=1 to n do s:=s+a[i];
ave:=s/n;
write(s,n);
end.