var n,m,i,j,k,a,b,c:longint; s:array [1..12414] of longint;
begin
    readln(n,m,k);
    for i:=1 to n do
        for j:=1 to m do
        begin
            read(c);
            s[i]:=s[i]+c;
        end;
    for i:=1 to n do if s[i]>=k then a:=a+1;
    writeln(a);
end.
/**************************************************************
	Problem: 2026
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/