type Index = Int
type Total = Int
type MinN = Int
type Material = Int

func :: Index -> Total -> MinN -> Material -> [Int] -> Int
func index total minN mat [] = (mat - total) `div` minN + index
func index total minN mat (x:xs) =
  func (succ index) (total+x) (min minN x) mat xs

main = do
  line <- getLine
  contents <- getContents
  let
    [_,x] = map read $ words line :: [Int]
    xs = map read $ lines contents :: [Int]
    ans = func 0 0 10000 x xs
  putStrLn $ show ans
