Scanf.scanf "%d" @@ fun n ->
let l = Array.init n (fun _ -> Scanf.scanf " %d" ((+) 0)) in
let s, m = Array.fold_left (fun (s, m) x -> s + x, max m x) (0,0) l in
print_endline (if s > 2*m then "Yes" else "No")
