main = do
    n <- read <$> getLine
    ls <- map (read :: String -> Int) . words <$> getLine
    print $ length $ filter (hoge ls) [1..n]
    where hoge ls i = all ((>) $ last (take i ls)) $ init (take i ls)
