import Control.Monad
import Data.List

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

solve :: [Int] -> Int
solve = (+) <$> sum . init . sort <*> (`div` 2) . last . sort