问题描述: Pascal 输入20个数求出他们的最大值最小值和平均值 1个回答 分类:综合 2014-10-22 问题解答: 我来补答 同意 jaxxcyh 的意见!看在你不知道的份上,给你一个参考程序.var a:array[1..20]of real;n,m,b:real;i,j:integer;beginfor i:=1 to 20 do beginread(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] 展开全文阅读