import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  getLine
  ps <- sort .  map (read::String->Int) . lines <$> getContents
  print $ (sum .init) ps + div (last ps) 2