
main = do
  line1 <- getLine
  line2 <- getLine
  let
    n  = head $ map read $ words line1 :: Int
    ls = map read $ words line2 :: [Int]
    l_max = foldl max 0 ls
    in
      if l_max * 2 < (sum ls) then putStrLn "Yes"
      else putStrLn "No"

