Cod sursa(job #933073)

Utilizator paulhelmerPaul Helmer paulhelmer Data 29 martie 2013 16:19:48
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include <fstream>
using namespace std;
int i, j, n, x, s, a[9005], b[7005];
int main()
{
	ifstream f("medie.in");
	ofstream g("medie.out");
	f>>n;
	for(i=1; i<=n; i++) f>>a[i];
	for(i=1; i<=n; i++)
		for(j=i+1; j<=n; j++)
			if((a[i]+a[j])%2==0)
			{
			    x=(a[i]+a[j])/2;
				b[x]++;
                if(a[i]==a[j]) s-=2;
			}
	for(i=1; i<=n; i++) s+=b[a[i]];
	g<<s<<"\n";
}