(define yuki191
  (let*
    (
      (n (read-line))
      (cn (map string->number (string-split (read-line) #\space)))
      (sum (fold + 0 cn))
      (ans (* 30 (length (filter (lambda (x) (<= (* x 10) sum)) cn))))
    )
    (write ans)
    (newline)
  )
)