import qualified Data.ByteString.Char8 as BS

main = do
  n <- readLn :: IO Int
  cs <- map (read . BS.unpack) . BS.words <$> BS.getLine :: IO [Int]
  putStr . show . (*) 30 . length $ filter (<= ((sum cs) `div` 10)) cs