Ответы и объяснения

2012-05-02T17:47:33+00:00

var a,max: real;

     n,i: integer;

begin

  max:=0;

  readln(n);

  for i:=1 to n do begin 

    readln(a);

    if a>max then max:=a;

                         end;

  writeln(max);

end.