program ABC152C
    implicit none
    integer::n,ans,i
    integer,allocatable::a(:)
    read*,n
    allocate(a(n))
    read*,a
    ans = 0
    do i = 1,n
        if (minval(a(1:i)) >= a(i)) then
            ans = ans + 1
        end if
    end do
    print*,ans
end program ABC152C
