implicit none
integer(8) i,m,B,N
real(8) A
integer(8),allocatable :: C(:)
read(*,*) N
allocate (C(N))
read(*,*) (C(m),m=1,N)
A=0
B=0
do i=1,N
   A=A+C(i)
end do
A=(A/10.0)
do i=1,N
   if (A>=C(i)) then
       B=B+1
   end if
end do
write(*,*) B*30
end