Cod sursa(job #294082)

Utilizator robigiirimias robert robigi Data 2 aprilie 2009 12:15:36
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include <fstream>
using namespace std;

ifstream f ("medie.in");
ofstream g ("medie.out");

int n, v[900];

void read()
{    f >> n;
     for (int i=1; i<=n; i++)
	 f >> v[i];
}

void program()
{    int k, nr=0;
     for (k=1; k<=n; k++)
     for (int i=1; i<n; i++)
     {   if (i==k) i++;
	 for (int j=i+1; j<=n; j++)
	 {   if (j==k) j++;
	     if (2*v[k]==v[i]+v[j]) nr++;
	 }
     }

     g << nr;
}

int main()
{   read();
    program();
    return 0;
}