main :: IO ()
main = do
  n <- getLine
  hs <- map (read :: String -> Int) . words <$> getLine
  print $ ans hs

ans :: [Int] -> Int
ans hs = snd $ foldl (\(m,n) h -> if m <= h then (h,n+1) else (m,n)) (0,0) hs