main = do
       e <- getLine
       e2<- getContents
       let 
           (n:x:[])=map read (words e) :: [Int]
           xs=map read (lines e2)::[Int]
           x2=x-(sum xs)
       putStrLn $ show $ n + (x2 `div` minimum xs)