program view
  implicit none
  integer :: N,i,j,OKn,tfHi
  integer,allocatable :: H(:)

  read(*,*) N
  OKn=0
  allocate(H(N))
  read(*,*) H
  do i=1,N
     tfHi=1
     do j=1,i
!        write(*,*) i,j                                                         
        if(H(j).gt.H(i)) then
           tfHi=0
        endif
     enddo
     OKn=OKn+tfHi
  enddo
  write(*,'(i0)') OKn
  deallocate(H)





end program view
