pickMax :: [Int] -> (Int, [Int])
pickMax [] = error "undefined"
pickMax [x] = (x, [])
pickMax (x:xs)
 | x > x'    = (x, x':xs')
 | otherwise = (x', x:xs')
 where (x', xs') = pickMax xs

main = do
  l <- map read . words <$> (getLine >> getLine)
  let (maxL, others) = pickMax l
  if maxL < sum others then putStr "Yes" else putStr "No"