Cod sursa(job #469003)

Utilizator darrenRares Buhai darren Data 5 iulie 2010 17:25:07
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<fstream>
using namespace std;

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