program main
  implicit none
  integer :: n, i, res
  integer, allocatable :: h(:)
  read (*, *) n
  allocate (h(n))
  read (*, *) h(:)
  res = 1
  do i = 2, n
    if (h(i) >= maxval(h(1:i - 1))) then
      res = res + 1
    end if
  end do
  write (*, "(i0)") res
end program main
