import Data.List

main = do
  l <- readLn
  getLine
  li <- getLine
  let ws = map read $ words li
  print $ compute l ws

compute l ws = length $ takeWhile (l >=) $ scanl1 (+) $ sort ws