Cod sursa(job #258008)

Utilizator vladutzdudevlad ungureanu vladutzdude Data 14 februarie 2009 15:07:32
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 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;   
}