uses crt;
var
i,n,k,m:integer;
c:real;
begin
writeln('vvedite n');
readln(n);
k:=0;
m:=0;
for i:=1 to n do begin
readln(c);
if c<0 then k:=k+1
else begin
if k>m then m:=k;
k:=0;
end;
end;
if k>m then m:=k;
writeln(m);
readln;
end.
uses crt;
var
i,n,k,m:integer;
c:real;
begin
writeln('vvedite n');
readln(n);
k:=0;
m:=0;
for i:=1 to n do begin
readln(c);
if c<0 then k:=k+1
else begin
if k>m then m:=k;
k:=0;
end;
end;
if k>m then m:=k;
writeln(m);
readln;
end.