Cod sursa(job #425805)

Utilizator horeste12Stoianovici Horatiu Andrei horeste12 Data 26 martie 2010 09:38:35
Problema Medie Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<cstdio>
#include<fstream>
using namespace std;

FILE *f;
ofstream g("medie.out");

int n,a[10001],v[10001],frecv[10001],i,j;
long long nr;
int main()
{
	f=fopen("medie.in","r");
	fscanf(f,"%d\n",&n);
	for(i=1;i<=n;i++)
	{
		fscanf(f,"%d\n",&a[i]);frecv[a[i]]++;
	}
	for(i=1;i<n;i++)
		for(j=i+1;j<=n;j++)
			if(((a[j]+a[i])&1)==0)
			{
				v[(a[j]+a[i])>>1]++;
				nr+=frecv[(a[j]+a[i])>>1];
			if(a[j]==((a[j]+a[j])>>1))
				nr-=2;
		}
	g<<nr<<'\n';
	fclose(f);
	g.close();
	return 0;
}