module Main where

import           Control.Monad
import           Data.List
import           Data.Ord
import           Data.List.Split
import           Data.Array.IO
import qualified Data.Vector.Unboxed           as V

main :: IO ()
main = do
  _ <- getLine
  (h:hs) <- map read . words <$> getLine :: IO [Int]
  print $ 1 + f hs h
  where
    f [] _ = 0
    f (x:xs) m | x >= m = 1 + f xs x
               | otherwise = f xs m
