Cod sursa(job #66549)

Utilizator swift90Ionut Bogdanescu swift90 Data 19 iunie 2007 19:07:49
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include<stdio.h>
int nr[15000];
int main(){
	freopen("medie.in","r",stdin);
	freopen("medie.out","w",stdout);
	int n,i,j,s=0,max,aux,i1;
	
	scanf("%d",&n);
	max=0;
	for(i=0;i<n;i++){
		scanf("%d",&aux);
		nr[aux]++;
		if(aux>max)
			max=aux;
	}
	
	s=0;
	for(i=0;i<=max;i++){
		if(nr[i]){
			i1=2*i;
			for(j=1;j<i;j++)
				s+=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;
}