Cod sursa(job #250257)

Utilizator crawlerPuni Andrei Paul crawler Data 30 ianuarie 2009 14:19:22
Problema Medie Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <stdio.h>

#define Nmax 17001

int v[Nmax],n,max;
long long nr;
int main()
{
    freopen("medie.in","r",stdin);
    freopen("medie.out","w",stdout);
    int i,x;
    scanf("%d",&n);
    for(i=1;i<=n;++i)
        {
            scanf("%d",&x);
            ++v[x];
            if(x>max)
                max=x;
        }
    for(i=1;i<=max;++i)
        {
            if(v[i]>2)
                nr+=v[i]*(v[i]-1)*(v[i]-2)/2;
            for(int j=1;j<i;++j)
            
                  nr+=v[i-j]*v[i+j];
        }
    printf("%lld\n",nr);       
    return 0;
}