Cod sursa(job #204298)

Utilizator IrnukIrina Grosu Irnuk Data 22 august 2008 16:08:59
Problema Medie Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
/*medie*/

#include<fstream.h>

int id[7005],v[9005],n;
long cont;
ifstream fin("medie.in");
ofstream fout("medie.out");

int main()
{
	int i,j;
	fin>>n;
	for(i=0;i<n;i++)
	{
		fin>>v[i];
		id[v[i]]++;
	}



	for(i=0;i<n-2;i++)
	{
		if(id[v[i]]>1)
		{
			cont=cont+(id[v[i]]-2)*(id[v[i]]-1)*id[v[i]]/2;
			id[v[i]]=1;
		}

		for(j=i+1;j<n-1;j++)
		{
			if(id[2*v[i]-v[j]]==1 && v[i]!=v[j] && v[j]!=2*v[i]-v[j])
				cont++;
		}
	}
	fout<<cont<<'\n';
	fout.close();
	return 0;
}