import Data.List ( sortBy )

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

f :: [Int] -> Bool
f ls = m < rest
  where
    m = head ls'
    rest = sum $ tail ls'
    ls' = sortBy (flip compare) ls