-- Enter your code here. Read input from STDIN. Print output to STDOUT

main = do
    input1 <- getLine
    input2 <- getLine
    let candles = map read (words input2) :: [Int]
    let blown = length $ filter (== (maximum candles))  candles
    print blown