program bbb
implicit none

integer :: n, i, m, res
integer,allocatable,dimension(:) :: h

read*, n
allocate(h(0:n))
read*, h(1:n)
h(0)=0

res=0
m=h(0)

do i=1,n
if(h(i)>=m) then
res=res+1
m=h(i)
end if
end do

write(*,'(i0)') res

end program