import Control.Applicative

main :: IO ()
main = do
  _ <- getLine
  ls <- map read . words <$> getLine
  putStrLn $ solve ls

solve :: [Int] -> String
solve ls
  | 2*(maximum ls) < sum ls = "Yes"
  | otherwise = "No"
