let _ =
  let n = Scanf.scanf "%d\n" (fun n -> n) in
  let h_max = ref 0 in
  let res = ref 0 in
  for i = 0 to n - 1 do
    let h = 
      Scanf.scanf (if i <> n - 1 then "%d " else "%d\n") (fun h -> h) in
    if h >= !h_max then (res := !res + 1; h_max := h);
  done;
  print_int !res
