Cod sursa(job #264292)

Utilizator crawlerPuni Andrei Paul crawler Data 21 februarie 2009 21:23:50
Problema Medie Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include <stdio.h>

#define Nmax 8200

int a[Nmax], nr[Nmax], n, ret;

int main()
{
     freopen("medie.in","r",stdin);
     freopen("medie.out","w",stdout);
     
     scanf("%d", &n);
     
     for (int i=1;i<=n;++i)
          scanf("%d", &a[i]);
          
     for (int i=1;i<=n;++i)
     for (int j=i+1;j<=n;++j)
     {
          int med = (a[i]+a[j])/2;
          ++nr[med];
          if (med == a[i]) --ret;     
     }
     
     for (int i=1;i<=n;++i)
          ret += nr[a[i]];
          
     printf("%d\n", ret);
     
     return 0;     
}