Program Pr;

var n, k, a, a1, i: Integer;

Begin
    read(n);
    read(a1);
    k := 0;
    for i := 2 to n do begin
        read(a);
        if a > a1 then k := k + 1;
    end;
    if k > 0 then writeln(k)
    else writeln('NO');
End.