package main

import (
	"bufio"
	"fmt"
	"log"
	"os"
	"strconv"
	"strings"
)

func nextInt(sc *bufio.Scanner) int {
	sc.Scan()
	i, err := strconv.Atoi(sc.Text())
	if err != nil {
		log.Fatal(err)
	}
	return i
}

func nextIntList(sc *bufio.Scanner) []int {
	sc.Scan()
	input := strings.Split(sc.Text(), " ")
	result := make([]int, len(input))
	for i, v := range input {
		if j, err := strconv.Atoi(v); err != nil {
			log.Fatal(err)
		} else {
			result[i] = j
		}
	}
	return result
}

func main() {
	sc := bufio.NewScanner(os.Stdin)
	nextInt(sc)
	cList := nextIntList(sc)

	vSum := 0
	for _, c := range cList {
		vSum += c
	}

	count := 0
	for _, c := range cList {
		if c <= vSum/10 {
			count += 1
		}
	}
	fmt.Println(count * 30)
}