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