(defn input []
  (letfn [(for-input [] (Integer/parseInt (read-line)))]
    (repeatedly (for-input) for-input)))

(defn Christmas [P]
  (let [tmp (reverse (sort P))]
    (int
      (+
        (/ (first tmp) 2.0)
        (apply + (rest tmp))))))

(->> (input)
  Christmas
  println)