Cod sursa(job #264305)

Utilizator crawlerPuni Andrei Paul crawler Data 21 februarie 2009 21:33:01
Problema Medie Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.61 kb
#include <stdio.h>

#define Nmax 9001

int a[Nmax], nr[Nmax*2], n;
long long 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) if (a[i]&1==a[j]&1)
     {
          int med = (a[i]+a[j])>>1;
          ++nr[med];
          if (med == a[i]) --ret;     
     }
     
     for (int i=1;i<=n;++i)
          ret += nr[a[i]]--;
          
     printf("%lld\n", ret);
     
     return 0;     
}