VAR    I,N,T,K:LONGINT;
       A:ARRAY[1..100000] OF LONGINT;
BEGIN
    READLN(N);
    T:=-MAXLONGINT;
    K:=0;
    FOR I:=1 TO N DO
        BEGIN
            READ(A[I]);
            IF A[I]>T THEN T:=A[I];
        END;
    FOR I:=1 TO N DO
        IF A[I]=T THEN INC(K);
    WRITELN(K);
END.