integer::N,total integer,allocatable::C(:) read *,N allocate(C(N)) read *,C total = SUM(C) print '(i0)',COUNT(C.le.total/10)*30 end program