import Data.List

main = do
  [n, x] <- map read.words <$> getLine :: IO [Int]
  a <- sort.map read.words <$> getLine
  print $ (\(x:xs) -> if x == 0 then length xs + 1 else length xs) $ filter (0 <=) $ tail $ scanl (-) x a