Cod sursa(job #66543)

Utilizator swift90Ionut Bogdanescu swift90 Data 19 iunie 2007 18:28:46
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<stdio.h>
int v[14100];
int main(){
	freopen("medie.in","r",stdin);
	freopen("medie.out","w",stdout);
	int n,i,aux,max=0,j;
	long long s=0,s1;
	
	scanf("%d",&n);
	for(i=0;i<n;i++){
		scanf("%d",&aux);
		v[aux]++;
		if(aux>max)
			max=aux;
	}
	
	for(i=1;i<=max;i++){
		if(v[i]){
			if(v[i]>2){
				s1=(v[i]-1)*(v[i]-2);
				s1/=2;
				s+=v[i]*s1;
			}
			for(j=1;j<i;j++){
				if(v[j]){
					aux=2*i-j;
					s+=v[j]*v[aux];
				}
			}
		}
	}
	
	
	printf("%lld\n",s);
	
	return 0;
}