open System

let N = stdin.ReadLine()|>int
let H = stdin.ReadLine().Split()|>Array.map int
[<EntryPoint>]
let main argv =
    [for i in [0..N-1] do yield (if (H.[i]>=([for j in [0..i] do yield H.[j]]|>List.max)) then 1 else 0)]
    |>List.sum
    |>stdout.WriteLine
    0