Cod sursa(job #258005)

Utilizator crenguBacaoanu Crenguta crengu Data 14 februarie 2009 15:05:31
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<fstream.h>
int main()
{
 int  x,s,i,j,k,v[7001],n;
 ifstream f("medie.in");
 ofstream g("medie.out");
 f>>n;
 for(i=1;i<=n;i++)
  {f>>x;
   v[x]++;}

 s=0;
 for(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;
 }