program abc;
var n,k,i,j,ans:integer;
f:array[1..200] of integer;
begin
readln(n,k);
for i:=1 to n do
begin
repeat
read(j);
if j<>0 then inc(f[i]);
until j=0;
if f[i]>=k then inc(ans);
end;
write(ans);
readln;
end.