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!