import Data.Char
import Data.List
import qualified Data.ByteString.Char8 as B
main=B.interact$B.pack.show.f.unfoldr(B.readInt.B.dropWhile isSpace)
f (n:ps)=sum pp+(p`div`2) where
 (p:pp)=reverse$sort ps