import Data.List (delete)

solve :: [Int] -> Int
solve xs = mx + (sum . map (flip div 2)) xs' where
    mx = maximum xs
    xs' = delete mx xs

main = do
    getLine
    xs <- map read . words <$> getLine
    print $ solve xs