main :: IO ()
main = do
  n <- readLn :: IO Int
  ls <- (<$>) (\s -> read s :: Int) <$> words <$> getLine
  let
    s = sum ls
    m = maximum ls
    ans
      | 2 * m < s = "Yes"
      | True = "No"
    in putStrLn ans
