Cod sursa(job #257985)

Utilizator crenguBacaoanu Crenguta crengu Data 14 februarie 2009 14:30:44
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-1;i++)
   for(j=i+1;j<=n;j++)
       {
	  ma=(v[i]+v[j])/2;
	  for(p=i;p<=j;p++)
	    if(v[p]==ma)k++;

       }

 g<<k;
 f.close ();
 g.close ();
 return 0;
 }