uses crt;
var i,j,n,k,max:word;
dau:array[1..1000] of boolean;
a,luu:array[1..1000] of longint;
begin
    clrscr;
    write('N=');readln(n);
    for i:=1 to n do
       begin
           read(a[i]);
           if a[i]>=0 then dau[i]:=true
              else dau[i]:=false;
       end;
    readln;
    max:=0;
    for i:=1 to n do
       begin
           if i<>n then j:=i+1
              else break;
           while dau[i]=dau[j] do inc(j);
           if j-i>max then
              begin
                  max:=j-i;
                  for k:=i to j-1 do
                     luu[k-i+1]:=a[k];
              end;
       end;
    for i:=1 to max do write(luu[i],' ');
readln;
end.