Cod sursa(job #257998)

Utilizator Liviu.G.Girbea Liviu Liviu.G. Data 14 februarie 2009 15:01:40
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
#include<fstream.h>
int v[7001];
int main()
{int s,i,j,k,n,x;
ifstream f("medie.in");
ofstream g("medie.out");
f>>n;
s=0;
for(i=1;i<=n;i++){f>>x;v[x]++;}
for(i=1;i<=7000;i++)
{k=v[i];
s+=(k-2)*(k-1)*k/2;
j=i-1;k=i+1;
while(j>=1&&k<=7000)
{if(v[j]>0&&v[k]>0)s+=v[i]*v[j]*v[k];
j--;k++;}}
g<<s;
f.close ();
g.close ();
return 0;
}