Pascal 输入20个数求出他们的最大值最小值和平均值
网友回答
同意 jaxxcyh 的意见!
看在你不知道的份上,给你一个参考程序.
var a:array[1..20]of real;
n,m,b:real;
i,j:integer;
beginfor i:=1 to 20 do begin
read(a[i]);
if a[i]>m then m:=a[i];
b:=b+a[i];
end;readln;
writeln('Zuida=',m：0：2); b:=b/20;
n:=a[1];
for i:=2 to 20 do
if a[i]