program great_ocean_view
  implicit none
  integer :: n, h(0:20), i, m
  h = 0
  read(*,*) n
  read(*,*) h(1:n)
  m = 0
  do i = 1, n
    if (h(i).ge.maxval(h(0:i-1))) m = m + 1
  end do
  write(*,'(i0)') m
  stop
end program great_ocean_view