exp4_2.pas

关于课件 好多种结构的算法 等等 大家自己看吧

program exp4_2(input,output);
var
   x,sum,mul,ave:real;
   i:integer;
begin
   sum:=0;
   mul:=1;
   for i:=1 to 10 do
     begin
       read(x);
       write(x:8:2);
       if i mod 5=0 then writeln;
       sum:=sum+x;
       mul:=mul*x;
     end;
   ave:=sum/10;
   writeln('sum=',sum:8:2,'  mul=',mul:16:2,'  ave=',ave:16:2);
   readln;
end.