import Control.Applicative
import Control.Monad
import Data.List

main = readLn >>= \l -> getLine >> map read . words <$> getLine >>= print . length . takeWhile (<=l) . tail . scanl (+) 0 . sort