Cod sursa(job #1937231)

Utilizator mateibanuBanu Matei Costin mateibanu Data 23 martie 2017 20:16:13
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.54 kb
#include <stdio.h>

using namespace std;

FILE*f=fopen("medie.in","r");
FILE*g=fopen("medie.out","w");

int m[7001],v[9001];

int main()
{
    int n,nr=0,i,j,x;
    fscanf(f,"%d",&n);
    for (i=1;i<=n;i++) {
        fscanf(f,"%d",&v[i]);
        m[v[i]]++;
    }
    for (i=1;i<n;i++)
        for (j=i+1;j<=n;j++)
            if ((v[i]+v[j])%2==0){
                x=(v[i]+v[j])/2;
                nr+=m[x];
                if (v[i]==x) nr-=2;
            }
    fprintf(g,"%d",nr);
    fclose(f);
    fclose(g);
    return 0;
}