program main
Implicit None
	integer(8)::n,i,m,p=1
	integer(8),allocatable::h(:)
	
	read*,n
	
	allocate(h(n))
	read*,h
	
	m =h(1)
	do i = 2,n
		if(m <= h(i))then
			p = p+1
			m = h(i)
		endif
	enddo
	
	print"(i0)",p
end program main