main :: IO ()
main = do
  n <- readLn
  xs <- map read . words <$> getLine
  putStrLn $ solve n xs

solve :: Int -> [Int] -> String
solve n xs = if maxLength < sumLength then "Yes" else "No"
  where
    maxLength = maximum xs
    sumLength = sum xs - maxLength