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

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