C++ :

#include <iostream>
#include <cstdio>
using namespace std;
int main()
{
	int n,m,k,a[1000]={0},count=0;
	cin>>n>>m>>k;
	for(int i=0;i<n;i++)
	{
		//n个人，每人一行m个成绩
		for(int j=0;j<m;j++)
		{
			int t;
			cin>>t;
			a[i]=a[i]+t;
		}
	}
	for(int i=0;i<n;i++)
	{
		if(a[i]>=k)
		{
			count++;
		}
	}
	cout<<count<<endl;
	return 0;
}

Pascal :

var a:array[1..1000,1..1000] of longint;
b:array[1..1000] of longint;
n,m,k,i,j,t:longint;
begin
   readln(n,m,k);
   for i:=1 to n do
       for j:=1 to m do
       read(a[i,j]); 
   for i:=1 to n do
       for j:=1 to m do
       b[i]:=b[i]+a[i,j];
   for i:=1 to n do
   if b[i]>k then inc(t);
   write(t);
end.