[<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 ls = reads int
    let x :: xs = Array.toList ls |> List.sortDescending
    if x < List.sum xs then "Yes" else "No"
    |> printfn "%s"
    0