program main
  implicit none
  integer N, H(20), Hmin, i, highn
  read(*, *) n
  read(*, *) H
  Hmin = 0
  highn = 0
  do i = 1:N
  if (Hmin <= H(i)) then
    Hmin = H(i)
    highn = highn + 1
  end if
  write(*, '(i0)') highn
end program main