import Data.Traversable
import Data.List

main :: IO ()
main = do
  t <- read <$> getLine
  ps <- for [1..t] $ \x ->
    read <$> getLine
  putStrLn . show . solve $ ps

solve :: [Int] -> Int
solve ps =
  let (x:xs) = reverse . sort $ ps
  in x `div` 2 + sum xs
