import Data.List


main = do
    getLine
    l <- (map read . words) <$> getLine :: IO [Int]
    print l
    let 
      a = reverse $ sort l
    let
      ret = if head a < sum (tail a) then "Yes" else "No"
    putStrLn ret
