Cod sursa(job #927919)

Utilizator Stefex09Stefan Teodorescu Stefex09 Data 26 martie 2013 09:41:05
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.66 kb
#include <iostream>
#include <fstream>

using namespace std;

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

int V[9010], Ap[7010];

int main()
{
    int N, i, j, Ans = 0, med;

    in >> N;

    for (i = 1; i <= N; i ++){
        in >> V[i];
        Ap[V[i]] ++;
    }

    for (i = 1; i <= N; i ++)
        for (j = i + 1; j <= N; j ++){
            med = V[i] + V[j];

            if (med & 1)
                continue;
            else
                med >>= 1;

            if (V[i] == V[j])
                Ans += Ap[med] - 2;
            else
                Ans += Ap[med];
        }

    out << Ans;

    return 0;
}