import Control.Monad
import Data.List
import Control.Applicative

main = do
  n <- readLn :: IO Int
  ls <- map read . words <$> getLine
  putStrLn $ jad  ls

jad :: [Int] -> String
jad ls
  |maximum(ls) < sum(filter (/= maximum(ls)) ls) = "yes"
  |otherwise = "no"