import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List

readInts = map read . words <$> getLine :: IO [Int]

solve hs = sub 0 0 hs
  where
    sub r _ [] = r
    sub r t (x:xs) = sub (if x>=t then r+1 else r) (max t x) xs

main = getLine >> map read . words <$> getLine >>= print . solve
