let () = Scanf.scanf "%d" @@ fun n ->
  let hs = Array.init n @@ fun _ -> Scanf.scanf " %d" Fun.id in
  let ans = snd @@ Array.fold_left (fun (m, acc) h -> max m h, acc + if h >= m then 1 else 0) (min_int, 0) hs in
  Printf.printf "%d\n" ans 