main :: IO ()
main = interact $ show . solve . map read . tail . words

solve :: [Int] -> Int
solve xs = (* 30) . length $ filter ( \x -> x <= ((sum xs) `div` 10) ) xs