import Control.Monad
main = do
    getLine
    ms <- map read . words <$> getLine
    print $ count ms
    
count :: [Integer] -> Integer
count [] = 0
count (x : []) = 1
count (x:y:xs) = if x > head xs then 1 + count xs else count xs