Cod sursa(job #294052)

Utilizator robigiirimias robert robigi Data 2 aprilie 2009 11:53:26
Problema Medie Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <fstream.h>

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

int n, v[9001];

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

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

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