import Control.Monad
import Data.List

convertMaxToHalf :: [Int] -> [Int]
convertMaxToHalf prices = (max `div` 2):remains
  where sorted = reverse . sort $ prices
        max = head sorted
        remains = tail sorted


main :: IO ()
main = do
  count <- readLn
  prices <- replicateM count readLn
  print $ sum $ convertMaxToHalf (prices :: [Int])