program main
	implicit none
	integer :: N, ans, i, j
	integer, allocatable :: H(:)
	read(*, *) N
	allocate(H(1:N))
	read(*, *) H
	ans = N
	do i = 2, N
		do j = 1, i-1
			if(H(j) > H(i)) then
				ans = ans -1
				exit
			end if
		end do
	end do
	write(*, *) ans
end program main