program main
  implicit none
  integer :: N
  integer,allocatable :: H(:)
  logical :: flag
  integer :: out
  integer :: i,j
  read(*,*) N
  allocate(H(N))
  read(*,*) H(:)

  out = 1
  do I = 2,N
     flag=.true.
     do j = 1,i-1
        if (H(j) > H(i)) then
           flag=.false.
           exit
        end if
     end do
     if (flag) then
        out = out+1
     end if
  end do
  write(*,'(i0)') out
  stop 
end program main