exp4_7.pas

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

program exp4_7(input,output);
var
   x,max,min:real;
   i:integer;
begin
   read(x);
   write(x);
   max:=x;
   min:=x;
   for i:=2 to 10 do
     begin
       read(x);
       write(x:8:2);
       if i mod 5=0 then writeln;
       if x>max then max:=x else if x<min then min:=x;
     end;
   writeln('max num=',max:8:2,'  mini num=',min:16:2);
end.