module Main where

import Control.Monad
import Data.List (sort)

main :: IO ()
main = do
    width <- readLn :: IO Int
    getLine
    ws <- sort . fmap read . words <$> getLine :: IO [Int]
    let ws' = takeWhile (<= width) (scanl1 (+) ws)
    print (length ws')