Cod sursa(job #117888)

Utilizator mithyPopovici Adrian mithy Data 22 decembrie 2007 17:32:48
Problema Medie Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.56 kb
#include <stdio.h>
#define NMax 9005

int n;
double a[NMax];
FILE *f, *g;

void citire();
void rez();

int main()
{
	citire();
   rez();
	return 0;
}
void rez()
{
   int i, j, k, pmax=0;

   for (i=0; i<n; i++)
   for (j=0; j<n; j++)
   for (k=0; k<n; k++)
   if ( i!=j && i!=k && j!=k )
      if ( a[i] == (a[j]+a[k])/2 )
         pmax++;
   fprintf( g, "%d", pmax );
}
void citire()
{
	int i;
	f = fopen( "medie.in", "rt" );
	g = fopen( "medie.out", "wt");
	fscanf( f, "%d", &n );

	for (i=0; i<n; i++)
       fscanf( f, "%lf", &a[i] );
}