import Control.Monad

main :: IO ()
main = do
    n <- (map read) . words <$> getLine
    m <- (map read) <$> replicateM (head n) getLine
    putStrLn . show $ solve (last n) m

solve :: Int -> [Int] -> Int
solve x m = length m + (x - sum m) `div` (minimum m)