let () =
  let a = Scanf.scanf "%d" (fun n -> Array.init n (fun _ -> Scanf.scanf " %d" (fun x -> x))) in
  let sum = Array.fold_left (fun acc x -> acc + x ) 0 a in
  let max = Array.fold_left (fun acc x -> if acc > x then acc else x) 0 a in 
  let res = sum - max in
  if res > max then print_endline "Yes" else print_endline "No"
