program main
  implicit none
  
  integer ::n, h(20), c=1,i,j,y
  
  read(*,*)n
  read(*,*)(h(i),i=1,n)
  
  if (n == 1) then
    write(*,*)c
    stop
  end if
  
  do i = 2, n
    y = 1
    do j = 1, i
      if (c(j) > c(i)) then
        y = 0
      end if
    end do
    if (y == 1) then
      c = c + 1
    end if
  end do
  
  write(*,*)c
end program main