import Control.Applicative
import Data.List

main :: IO ()
main = getLine >> solve <$> f >>= print
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> Int
solve = fst . foldl' f (0, 0)
  where
    f (c, mx) h
      | mx <= h = (c+1, h)
      | otherwise = (c, mx)
