main = do
    _ <- getLine
    (h:hs) <- fmap (map read . words) getLine :: IO [Int]
    putStrLn $ show $ solve h hs + 1

solve :: Int -> [Int] -> Int
solve _ [] = 0
solve x (h:hs) = if x <= h then 1 + solve h hs else solve x hs
