Cod sursa(job #141198)

Utilizator za_wolfpalianos cristian za_wolf Data 22 februarie 2008 20:43:23
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include<stdio.h>
#define NMAX 9005
#define MMAX 7005
int i,j,n,m,k,b,l,a,s,x[NMAX],y[MMAX],z[MMAX];
int main()
{
	freopen("medie.in","r",stdin);
	freopen("medie.out","w",stdout);
	scanf("%d",&n);
	for (i=1;i<=n;i++)
	{
		scanf("%d",&x[i]);
		z[x[i]]++;
	}

	for (i=1;i<=n;i++)
		for (j=i+1;j<=n;j++)
		{
			a=x[i]+x[j];
/*			b=a/2;
			if (b*2==a)
			y[b]++; */
			if (a%2==0)
				y[a>>1]++;
			if (x[i]==x[j])
			   if (y[x[i]])
				s-=2;
		}
	for (i=1;i<=7001;i++)
		if (y[i])
			if(z[i])
				s+=y[i]*z[i];


	printf("%d\n",s);


	return 0;
}