Cod sursa(job #2548111)

Utilizator Bogdan.1108Mandresi Bogdan Bogdan.1108 Data 16 februarie 2020 11:14:48
Problema Medie Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.63 kb
#include <bits/stdc++.h>
using namespace std;
ifstream fin("medie.in");
ofstream fout("medie.out");
int n, mx, fr[7005];
long long ans;
int main()
{
    fin >> n;
    for (int i = 1; i <= n; ++i)
    {
        int x;
        fin >> x;
        fr[x]++;
        mx = max(mx, x);
    }
    for (int i = 1; i <= mx; ++i)
    {
        int j = 1;
        if (i % 2 == 0) j = 2;
        while (j < i)
        {
            ans += fr[i] * fr[j] * fr[(i + j) / 2];
            j += 2;
        }
        ans += (fr[i] - 2) * (fr[i] - 1) * fr[i] / 2;
    }
    fout << ans;
    fin.close();
    fout.close();
    return 0;
}