Cod sursa(job #66617)

Utilizator swift90Ionut Bogdanescu swift90 Data 20 iunie 2007 12:34:04
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include<stdio.h>
int nr[15000];
int citire(int n){
	int aux,i;
	for(i=0;i<n;i++){
		scanf("%d",&aux);
		nr[aux]++;
	}
	return 0;
}
int main(){
	freopen("medie.in","r",stdin);
	freopen("medie.out","w",stdout);
	int n,i,j,s=0,max,i1;
	
	scanf("%d",&n);
	citire(n);
	for(i=1;i<7001;i++){
		if(nr[i])
			max=i;
	}
	
	
	s=0;
	for(i=1;i<=max;i++){
		if(nr[i]){
			i1=2*i;
			for(j=1;j<i;j++)
				s+=nr[i]*nr[j]*nr[i1-j];
			if(nr[i]>=3)
				s+=nr[i]*(((nr[i]-1)*(nr[i]-2))/2);
		}
	}
	
	printf("%d\n",s);
	
	return 0;
}