main :: IO ()
main = do
  _ <- getLine
  ls <- map read . words <$> getLine :: IO [Int]
  putStrLn $ if f ls then "Yes"
                     else "No"

f :: [Int] -> Bool
f ls = 2*(maximum ls) < (sum ls) 