import Data.List

sumCheck :: Int -> [Int] -> [Int]                                           
sumCheck n xs = if n < (sum xs)
                     then sumCheck n (take (length(xs) - 1) xs)
                     else xs

solve :: [Int] -> Int
solve (l:_:xs) = length $ sumCheck l (sort xs)

main :: IO ()
main = interact $ show . solve . map read . words