Cod sursa(job #204380)

Utilizator IrnukIrina Grosu Irnuk Data 23 august 2008 12:31:09
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.66 kb
#include<fstream.h>   
  
int id[17005],v[19005],n,max;   
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]]++; 
		if(v[i]>max)
			max=v[i];
    }   

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


  
   
    fout<<cont<<'\n';   
    fout.close();   
    return 0;   
}