import           Data.List

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

judge :: [Int] -> Bool
judge ls = ma < sum res
  where
    sls = sort ls
    ma  = last sls
    res = init sls
