[<AutoOpen>]
module Program

open System

let read f = stdin.ReadLine() |> f
let reads f = stdin.ReadLine().Split() |> Array.map f

[<EntryPoint>]
let main argv =
    let n = read int
    let p :: ps =
        List.map (fun _ -> read int) [1..n]
        |> List.sortDescending
    p / 2 + List.sum ps
    |> printfn "%i"
    0