program main
implicit none
integer :: n
integer , allocatable :: h(:)
integer :: i, res, z

read(*,*) n
allocate( h(n) )
read(*,*) h


res = 0
z   = 0
do i = 1, n
   if( h(i) .ge. z ) then
      res = res + 1
      z   = h(i)
   end if
end do
write(*,'(i0)') res


end program main
