import Data.List
main = getLine >>= solve . read
        where solve n = getLine >> getLine >>= print . solve' n . sort . map read . words

solve' :: Int -> [Int] -> Int
solve' n = fst . foldl (\(a, b) x -> if b + x <= n then (a + 1, b + x) else (a, b)) (0, 0)