import Control.Monad

main = do
  _ <- getLine
  cs <- liftM (map read . words) getLine
  let
      s = sum cs
      cs' = filter f cs
      f x = 10 * x <= s
   in print $ length cs' * 30