Cod sursa(job #279470)

Utilizator ghitzZzaGheorghita Hurmuz ghitzZza Data 12 martie 2009 20:38:09
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 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;        
 }