Cod sursa(job #136906)

Utilizator lamez0rBogdan Bondor lamez0r Data 16 februarie 2008 15:13:42
Problema Teren Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.69 kb
#include<stdio.h>
long nr;
int m,n,a[100][100];

void citire ()
     {
     int i,j;
     FILE *f;
     f=fopen("ciobanas.in","r");
     fscanf(f,"%d%d",&n,&m);
     for (i=1;i<=n;++i)
	 for (j=1;j<=m;++j)
	     fscanf(f,"%d",&a[i][j]);
     fclose(f);
     }

void solve ()
     {
     int nrc,i,j,k;
     for (i=1;i<=n-1;++i)
	 {
	 for (j=i+1;j<=n;++j)
	     {
	     nrc=0;
	     for (k=1;k<=m;++k)
		 if (a[i][k]&&a[j][k])
		    nrc++;
	     nr+=nrc*(nrc-1)/2;
	     }
	 }
     }

void afisare ()
     {
     FILE *f;
     f=fopen("ciobanas.out","w");
     fprintf(f,"%ld",nr);
     fclose(f);
     }

int main ()
{
citire ();
solve ();
afisare ();
return 0;
}