Cod sursa(job #262130)

Utilizator andumMorie Daniel Alexandru andum Data 19 februarie 2009 00:29:05
Problema Medie Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include <stdio.h>
#define NMAX 7001

int n,v[NMAX],f[NMAX],fm[NMAX],k,i,j;

int main()
{
  freopen("medie.in","r",stdin);
  freopen("medie.out","w",stdout);

  scanf("%d", &n);
  for (i=1;i<=n;i++)
	{
	 scanf("%d", &v[i]);
	 f[v[i]]++;
	}
  for (i=1;i<n;i++)
  for (j=i+1;j<=n;j++)
	 if ((v[i]+v[j])%2==0) fm[(v[i]+v[j])/2]++;
  for (i=1;i<=n;i++)
	if (fm[v[i]])
		k+=fm[v[i]]-f[v[i]]+1;
  printf("%d", k);
  return 0;
}