import Data.List

main = do
  getLine
  xs <- map read . words <$> getLine
  print (gousei xs)

gousei xs = xmax + sum (map (`div` 2) xs1)
  where
   xmax = maximum xs
   xs1 = delete xmax xs