var
a:array[1..30] of real;
average,s:real;
i,x:integer;
begin
for i:=1 to 30 do
read(a[i]);
s:=s+a[i]
end;
average:=s/30;
if a[i]<average then x:=x+1;
writeln(x)
end.
