import Data.List

main = getContents >>= print . (\(x:_:xs) -> (length . filter (<x) . scanl1 (+) . sort) xs) . map read . words