main :: IO ()
main = do
  n  <- read <$> getLine :: IO Int
  hs <- map read . words <$> getLine :: IO [Int]
  let f (maxH, count) h = if maxH <= h then (h, count + 1)
                          else (maxH, count)
      (maxH, count) = foldl f (0, 0) hs
  print count