Cod sursa(job #63760)

Utilizator sigridMaria Stanciu sigrid Data 30 mai 2007 21:00:13
Problema Medie Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.53 kb
#include<fstream.h>
int v[9001];
int w[7001];
unsigned long cont;
int main()
{int n,x,i,j,ok;
 ifstream f("medie.in");
 ofstream g("medie.out");
 f>>n;
 for(i=1;i<=n;i++)
  {f>>x;
   v[i]=x;
   w[x]++;
  }
 f.close();
 cont=0;
 for(i=1;i<=n;i++)
  for(j=(i+1);j<=n;j++)
   {ok=v[i]+v[j];
    if(ok%2==0)
      {ok=ok/2;
       if((ok!=v[i])&&(ok!=v[j])) cont=cont+w[ok];
	 else if((ok==v[i])&&(ok==v[j])) cont=cont+w[ok]-2;
	  else cont=cont+w[ok]-1;
      }
   }
 g<<cont<<'\n';
 g.close();
return 0;
}