Cod sursa(job #2543896)

Utilizator PatrickCplusplusPatrick Kristian Ondreovici PatrickCplusplus Data 11 februarie 2020 17:02:50
Problema Medie Scor 60
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.66 kb
#include <bits/stdc++.h>

using namespace std;

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

int n, v[9005], fr[7005];
long long ans;


int main()
{
    fin >> n;
    for (int i = 1; i <= n; ++i)
    {
        fin >> v[i];
        ++fr[v[i]];
    }
    for (int i = 1; i < n; ++i)
    {
        for (int j = i + 1; j <= n; ++j)
        {
            if (v[i] % 2 != v[j] % 2) continue;
            fr[v[i]]--;
            fr[v[j]]--;
            int x = (v[i] + v[j]) / 2;
            ans += fr[x];
            fr[v[i]]++;
            fr[v[j]]++;
        }
    }
    fout << ans;
    fin.close();
    fout.close();
    return 0;
}