第3讲循环结构for.pptVIP

第三讲 循环结构一for 2009/09/26 循环结构 引例： 输入n（n=100）个正整数[0..30000],输出他们的和与平均值（小数点后保留2位小数）。 输入： 第一行：n。 第二行：n个用空格隔开的正整数。 输出： 第一行：n个数的和。 第二行：n个数的平均值。 样例输入： 4 10 4 20 30 样例输出： 64 16.00 var n,i,x:integer; sum:longint; aver:real; begin readln(n); sum:=0; for i:=1 to n do begin read(x); sum:=sum+x; end; aver:=sum/n; writeln(sum); writeln(aver:0:2); end. var n,i,x:integer; sum:longint; aver:real; begin readln(n); sum:=0; for i:=1 to n do begin read(x); sum:=sum+x; end;