program greatoceanview
  implicit none

integer::n,i,ans=1
integer,allocatable::h(:)

read*,n
allocate(h(n))
read*,h(:)
do i=2,n
   if(h(i)>=maxval(h(1:i-1)))then
      ans=ans+1
   end if
end do

print*,ans

end program greatoceanview