Cod sursa(job #290306)

Utilizator Bogdan_tmmTirca Bogdan Bogdan_tmm Data 27 martie 2009 18:59:22
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 kb
#include<iostream>
#include<stdio.h>
int a[9010],v[7010],nr,n,i,j,X;
int main()
{
	freopen("medie.in","r",stdin);
	freopen("medie.out","w",stdout);
	scanf("%d",&n);
	for(i=1;i<=n;i++)
	{
		scanf("%d",&a[i]);
		v[a[i]]++;
	}
	for(i=1;i<n;++i)
		for(j=i+1;j<=n;++j)
		{
				X=a[i]+a[j];
				if(X%2==0)
				{
					X>>=1;
					nr+=v[X];
					if(a[i]==X) nr--;
					if(a[j]==X) nr--;
				}
		}
	printf("%d\n",nr);
	return 0;
}