Cod sursa(job #355021)

Utilizator bent_larsenSturzu Antonio-Gabriel bent_larsen Data 10 octombrie 2009 00:06:14
Problema Medie Scor 60
Compilator c Status done
Runda Arhiva de probleme Marime 0.5 kb
#include<stdio.h>
#include<string.h>

int main()
{
	int i,j,v[9000],nr[7001],total=0,n;
	FILE *f=fopen("medie.in","r");

	memset(nr,0,sizeof(nr));
	fscanf(f,"%i",&n);
	for(i=0;i<n;i++)
	{
		fscanf(f,"%i",&v[i]);
		nr[v[i]]++;
	}
	fclose(f);

	for(i=0;i<n;i++)
	{
		for(j=i+1;j<n;j++)
		{
			if(((v[i]+v[j])&1)==0)
			{	
				total+=nr[(v[i]+v[j])/2];
				if(v[i]==v[j])
					total-=2;
			}
		}
	}
	f=fopen("medie.out","w");
	fprintf(f,"%i\n",total);
	fclose(f);
	return 0;
}