program p1102;

var i,y,a:integer;

x:array[100 ..201 ] of integer;

begin

a:=0;

for i:=1 to 10 do

begin

readln(x[i]);

end;

readln(y);

y:=y+30;

for i:=1 to 10 do

begin

if x[i]>y then

begin

a:=a+1;

end;

end;

writeln(a);

end.