import Control.Monad

solver::[Int]->Int
solver ls = (sum ls)-(div (maximum ls) 2)

main::IO()
main=do
  c<-getLine
  let n = read c
  d<-forM [1..n] (\_->do
                    s<-getLine
                    return (read s))
  print (solver d)
