Cod sursa(job #60462)

Utilizator Binary_FireFlorin Pg Binary_Fire Data 14 mai 2007 18:43:25
Problema Medie Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include <stdio.h>
#define fin  "medie.in"
#define fout "medie.out"
#define Nmax 9001
#define Cmax 14001

int N,v[Nmax],sum[Cmax],ret;

int main() {
register int i,j,tmp,ret=0;

	freopen(fin,"r",stdin); freopen(fout,"w",stdout);

	scanf("%d",&N);

	for (i=1;i<=N;++i) {
		scanf("%d",&tmp);
		v[i]=tmp;
	}

	for (i=1;i<=N;++i)
	for (j=i+1;j<=N;++j) {
		tmp=v[i]+v[j];
		if ( 2*v[i] == tmp )
			--ret;
		++sum[tmp];
	}

	for (i=1;i<=N;++i) {
		tmp=2*v[i];
		ret+=sum[tmp];
		--sum[tmp];
	}

	printf("%d\n",ret);

	return 0;
}