Cod sursa(job #419973)

Utilizator AndrewXJuduc Paul Andrei AndrewX Data 18 martie 2010 11:39:13
Problema Medie Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<stdio.h>
int n,i,j,k,v[9001],cont;
FILE *in=fopen("medie.in","rt"),*out=fopen("medie.out","wt");

int main()
{
	fscanf(in,"%d",&n);
	for(i=1;i<=n;i++)
		fscanf(in,"%d",&v[i]);
	for(i=1;i<=n;i++)
		for(j=1;j<=n;j++)
			for(k=j+1;k<=n;k++)
				if(v[i]==(v[j]+v[k])/2&&i!=j&&i!=k)
					cont++;
	fprintf(out,"%d",cont);
	return 0;
}