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

main :: IO ()
main = do
  _ <- getLine
  ns <- sortOn Down . map read . words <$> getLine
  if head ns < (sum . tail) ns
    then putStrLn "Yes"
    else putStrLn "No"