import Data.List

strToInts :: String -> [Int]
strToInts s = map read $ words s :: [Int]

readIntLine :: IO [Int]
readIntLine = do
    s <- getLine
    return (strToInts s)

main :: IO ()
main = do
  [count] <- readIntLine
  heights <- readIntLine
  let pairs = group $ reverse $ sort heights
  print $ length $ head pairs