import Data.List

solve :: Int -> [Int] -> Int
solve l [] = 0
solve l (w : ws)
    | l >= w    = 1 + solve (l - w) ws
    | otherwise = 0

main :: IO ()
main = do
    l <- readLn
    _ <- getLine
    w <- map read . words <$> getLine
    putStrLn $ show $ solve l (sort w)