parseInt(x)=parse(Int,x)
parseMap(x::Array{SubString{String},1})=map(parseInt,x)
function bsearch(a,x);l,r=1,length(a);while l<=r;m=l+div(r-l,2);if a[m]<x;l=m+1;else;r=m-1;end;end;return(l-1);end

function main()
	n = readline() |> parseInt
	h = readline() |> split |> parseMap
	k = 1
	for i in 2:n
		flg = 0
		for j in 1:n-1
			if h[i]<h[j]
				flg = 1
				break
			end
		end
		if flg == 0
			k += 1
		end
	end
	println(k)
end
main()
