Scanf.scanf "%d" @@ fun n ->
  let f _ = Scanf.scanf " %d" @@ fun l -> l in
  let ls = Array.init n f in
  let ma = Array.fold_left max min_int ls in
  let sum = Array.fold_left (+) 0 ls in
  print_endline @@ if ma < sum - ma then "Yes" else "No"