Cod sursa(job #573298)

Utilizator SerbanAlexandruSerban Alexandru SerbanAlexandru Data 6 aprilie 2011 09:54:47
Problema Medie Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.56 kb
#include<stdio.h>
long long n,a[9100],v[7100],f[7100],nr;
void cit(){
	freopen("medie.in","r",stdin);
	scanf("%d",&n);
	for(int i=1;i<=n;i++)
		scanf("%d",&a[i]);
	fclose(stdin);
}
void solve(){
	# define div2(x) ( ! ((x) & 1) )
	int i,j,aux;
	for(i=1;i<n;i++){
		f[a[i]]++;
		for(j=i+1;j<=n;j++)
			if ( div2( aux=a[i]+a[j] ) )
				++v[aux>>1];
	}
	f[a[n]]++;
}
int main(){
	cit();
	solve();
	freopen("medie.out","w",stdout);
	for(int i=1;i<=n;i++){
		if(v[a[i]]!=0)
			nr+=v[a[i]]-f[a[i]]+1;
	}
	printf("%d",nr);
	fclose(stdout);
	return 0;
}