Cod sursa(job #84895)

Utilizator Matei14Popa-Matei Mihai Matei14 Data 18 septembrie 2007 09:57:01
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<stdio.h>
int main(){
	int n,v[9000],i,j,k,s=0;
	freopen("medie.in","r",stdin);
	freopen("medie.out","w",stdout);
	scanf("%d",&n);
	for(i=0;i<n;++i)
		scanf("%d",&v[i]);
	for(i=0;i<n;++i)
		for(j=0;j<n;++j)
			for(k=0;k<n;++k)
				if(v[i]==(v[j]+v[k])/2 && k!=i && k!=j && i!=j && ((v[j]+v[k])%2)==0)
					s++;
	s/=2;
	printf("%d\n",s);
	fclose(stdin);
	fclose(stdout);
	return 0;
}