calc :: (Fractional a, Ord a, Num a) => [a] -> Int
calc ms = ((*) 30 . length . filter (<= l)) ms
    where l = (sum ms) / 10

main :: IO ()
main = do
    _ <- getLine
    putStrLn . show . calc . map read . words =<< getLine