import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  [n, x] <- map (read::String -> Int) . words <$> getLine 
  arr <- sort <$> forM [1..n] (\_ -> (read::String -> Int) <$> getLine)
  let all = sum arr
  print $ n + (x - all) `div` arr !! 0