PASCA第4讲 数组.pptVIP

* * 第四讲 数组及其应用 【引例 1：】 从键盘上输入n个数，输出他们的最大数，最小数，平均数。 输入： 第一行：n（100）. 第二行：n个正整数（［1，1000］），中间一个空格隔开。 输出： 第一行：最大数。 第二行：最小数。 第三行：n个数的平均值（小数点后保留2位小数）。 样例： 输入： 4 10 4 20 30 输出： 30 4 16.00 var n,i,x,min,max:integer; sum:longint; begin readln(n); min:=1001; max:=0; for i:=1 to n do begin read(x); sum:=sum+x; if xmax then max:=x; if xmin then min:=x; end; writeln(min); writeln(max); writeln(sum/n:0:2); end. var n,i,x,min,max:integer; sum:longint; begin readln(n); read(x); min:=x; max:=x;