n,*c=$<.read.split.map &:to_i
s=c.reduce :+
p c.reduce(0){|a,e|a+(s<e*10?0:30)}