import Data.List
import Data.Ord

solve :: [Int] -> Bool
solve ls = lm < sum lr
  where (lm:lr) = sortOn Down ls

main :: IO ()
main = do
  getLine
  ls <- map read . words <$> getLine
  putStrLn $ if solve ls then "Yes" else "No"