Program 5375;
var i, n, k_oz, a, i_oz, i0, m_oz: integer;
Begin
    readln(n);
    k_oz := 0;
    i_oz := 0; i0 := 0;
    for i := 1 to n do
    begin
        readln(a);
        if (a < 0) then
        begin
            if (k_oz = 0) then
            begin
                m_oz := a;
                i_oz := i;
            end;
            if (a > m_oz) then
            begin
                m_oz := a;
                i_oz := i;
            end;
            inc(k_oz);
        end;
    end;
End.