-- ABC124 B problem
import Control.Monad
import Control.Applicative
import Data.List

-- conversion from String to Int
toInt :: String -> Int
toInt x = read x :: Int

-- obtain [Int] from I/O
getInts :: IO [Int]
getInts = do
  x <- getLine
  let y = (map $ toInt) $ words x
  return y

-- check from head to tail, m : maximum, n : count
check :: Int -> Int -> [Int] -> Int
check n m [] = n
check n m (x:xs) =
  if x >= m then check n x xs
  else check (n-1) m xs

-- main function
main :: IO ()
main = do
  rd <- getLine
  let n = read rd :: Int
  (h:hs) <- getInts
  print (check n h hs)