import Data.List (sort)

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

solve :: [Int] -> Int
solve (n:m:cs) = length $ filter (<= 0) $ map (subtract m) $ scanl1 (+) $ sort cs