import Control.Monad

main = do
    n <- read <$> getLine
    l <- fmap read <$> words <$> getLine
    putStrLn $ if solve n l then "Yes" else "No"

solve :: Int -> [Int] -> Bool
solve n l = maximum l * 2 < sum l