Cod sursa(job #257960)

Utilizator crenguBacaoanu Crenguta crengu Data 14 februarie 2009 14:08:01
Problema Medie Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include<fstream.h>
int main()
{
 int  i,j,p,k,v[9001],n,ma;
 ifstream f("medie.in");
 ofstream g("medie.out");
 f>>n;
 for(i=1;i<=n;i++)
  f>>v[i];
 k=0;
 for(i=1;i<=n-i;i++)
   for(j=i+i;j<=n;j++)
       {
	  ma=(v[i]+v[j])/2;
	  for(p=1;p<=n;p++)
	    if(v[p]==ma)k++;
       }
 g<<k;
 f.close ();
 g.close ();
 return 0;
 }