(defvar N)
(setq N (parse-integer (read-line)))

(defvar C)
(setq C (make-array N :initial-element 0))

(defvar temp)
(defvar sum)
(setq sum 0)
(setq temp (read-from-string (concatenate 'string "(" (read-line) ")")))
(loop for i from 0 to (- N 1) do
        (setf (aref C i) (nth i temp))
        (setq sum (+ sum (aref C i)))
)
;(print sum)
(defvar cnt)
(setq cnt 0)
(loop for i from 0 to (- N 1) do
        (if (<= (* (aref C i) 10) sum) (incf cnt))
)
(format t "~d~%" (* cnt 30 ))