import Control.Monad
import Control.Applicative
import Data.List
import Data.Ord



getBysplit = map read . words <$> getLine

main :: IO()
main = do
  n <- readLn :: IO Int
  lst <- getBysplit :: IO [Int]
  let (x:xs) = sortOn Data.Ord.Down lst
  if x <  sum xs
    then putStrLn "Yes"
    else putStrLn "No"
