open System

[<EntryPoint>]
let main argv =
    let N=stdin.ReadLine()|>int
    [for i in [0..N-1] do yield (stdin.ReadLine()|>int64)]
    |>List.sortDescending
    |>fun c -> ((List.sum c) - (c.[0]/2L))
    |>stdout.WriteLine
    0
