program main
  implicit none
  integer :: i, n, cnt = 1
  integer, allocatable :: h(:)

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

  do i = 2, n
    if (check(h, i-1, i)) cnt = cnt + 1
  end do

  print '(i0)', cnt
contains
  recursive function check(h, i, k) result(visible)
    integer, allocatable :: h(:) 
    integer :: i, k
    logical :: visible

    if (i == 1) then
      visible = h(1) <= h(k)
    else if (h(i) > h(k)) then
      visible = .false.
    else
      visible = check(h, i-1, k)
    end if
  end function

end program