var a, b, count, d, e, i, n, ch: longint;
begin
a:=0;
d:=0;
e:=0;
count:=0;
b:=-$80000000;
readln (n);
for i:=1 to n do
    begin
    readln (ch);
    if ch=0 then a:=i;
    if (ch>=b) and (ch<0) then
       begin
       b:=ch;
       d:=i;
       end;
    if (ch<0) then inc (count);
    end;
if count mod 2=0 then e:=d;
for i:=1 to n do
if (i<>a) or (i<>e) then writeln (i);
end.