import Control.Monad
import Data.List
import Data.Ord

solve :: [Int] -> Int
solve (h:hs) = h `div` 2 + sum hs

main :: IO ()
main = do
  n <- readLn
  ps <- replicateM n readLn
  print . solve $ sortOn Down ps