import Data.List (sort)

solve :: [Int] -> Int
solve xs = y + sum (fmap (`div` 2) yr)
    where
        ys = sort xs
        yr = init ys
        y = last ys

main :: IO ()
main = getLine >> getLine >>= print . solve . fmap read . words