{-#LANGUAGE FlexibleContexts#-}
import Control.Monad.State
import Control.Monad.Reader
import Control.Arrow
-- import Control.Comonad
import Data.Maybe
import Data.List
import Data.Bool
import Data.Fixed
import Data.Tuple
import qualified Data.Map.Strict as M
import qualified Data.Array.IO as IA
import qualified Data.Vector as V

getInt = read <$> getLine :: IO Integer
getInts = map read . words <$> getLine :: IO [Integer]

type Row = Integer
type Col = Integer
type Point = (Integer, Integer)

mmm = 1000000007
factorial 0 s = s
factorial n s = factorial (n - 1) (s * n)
fact' n = factorial n 1
fi = fromInteger

-- 
--
--

main = do
    time <- getInt
    a <- sort <$> replicateM (fi time) getInt
    putStrLn . show $ sum (init a) + (last a `div` 2)
