import Data.List

main = do
  l <- readLn
  n <- getLine
  ws <- (map read . words) <$> getLine
  let ws' = sort ws
  putStrLn . show $ length [x | x <- scanl1 (+) ws', x <= l]