import Control.Applicative
import Control.Monad
import Data.List
import Data.Array

main = do
  n <- (read::String -> Int) <$> getLine
  arr <- reverse . sort . map (read::String -> Int) . words <$> getLine
  let maximum = arr !! 0
      rest = sum . tail $ arr
  putStrLn $ if rest > maximum then "Yes" else "No"