import Control.Monad as M
import Control.Applicative

solve :: [Int] -> Int
solve prices = (sum prices) - (maximum prices) `div` 2

main :: IO ()
main = do
  n <- getLine
  prices <- M.replicateM (read n) getLine
  putStrLn $ show $ solve (map read prices)

