Cod sursa(job #640248)

Utilizator Victor10Oltean Victor Victor10 Data 24 noiembrie 2011 23:31:39
Problema Medie Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.29 kb
#include <cstdio>
double a[7005];
int main(){
	int i,j,k,k2=0,n;
	scanf("%d",&n);
	for(i=1;i<=n;++i)
		scanf("%lf",&a[i]);
	for(i=1;i<=n;++i){
		for(j=1;j<=n;++j){
			for(k=1;k<=n;++k){
				if(i!=j&&i!=k&&j!=k&&(a[i]+a[j])/2==a[k])
					++k2;
			}
		}
	}
	printf("%d",k2/2);
}