Cod sursa(job #468994)

Utilizator darrenRares Buhai darren Data 5 iulie 2010 16:58:01
Problema Medie Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include<fstream>
using namespace std;

int n, v[9001], f[7001], tot;
int main()
{
	ifstream fin("medie.in");
	ofstream fout("medie.out");
	fin >> n;
	for (register int i = 1; i <= n; ++i)
	{
		fin >> v[i];
		++f[v[i]];
	}
	for (register int i = 1; i < n; ++i)
		for (register int j = i + 1; j <= n; ++j)
		{
			--f[v[i]], --f[v[j]];
			if ((v[i] + v[j]) % 2 == 0)
				tot += f[(v[i] + v[j]) / 2];
			++f[v[i]], ++f[v[j]];
		}
	fout << tot;
}