program ct;

uses  crt;

const vao='DAYSO.INP';

            ra='DAYSO.OUT';

var a:array[1..1000] of integer;

      i,n,X,v,r:integer;

begin clrscr;

   assign(v,vao); Reset(v);

   assign(r,ra); Rewrite(r);

   readln(v,n);

   for i:=1 to n do read(v,a[i]); 

   for i:=1 to n do

     if a[i]<0 then X:=a[i] else write('0');

   for i:=1 to n do

     if (a[i]<0) and (a[i]>X) then X:=a[i];

   writeln(r,X);

   close(v); 

   close(r);

readln;

end.

Học tốt!

uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin clrscr;
assign(input,'INP.INP');
assign(output,'OUT.OUT');
reset(input); rewrite(output);
read(input,n);
for i:=1 to n do read(input,a[i]);
for i:=1 to n do if a[i] < 0 then max:=a[i];
for i:=1 to n do if (a[i]>max) and (a[i]<0) then max:=a[i];
write(output,max);
close(input); close(output);
readln
end.