import Control.Applicative
import Control.Monad
import Data.List
import Data.Array

main = do
  n <- (read::String -> Int) <$> getLine
  arr <- reverse . sort <$> forM [1..n] (\i -> (read::String -> Int) <$> getLine)
  let m = arr !! 0
      rest = tail arr
  print $ (m `div` 2) + sum rest