Cod sursa(job #2544006)

Utilizator PatrickCplusplusPatrick Kristian Ondreovici PatrickCplusplus Data 11 februarie 2020 18:12:38
Problema Medie Scor 10
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.74 kb
#include <bits/stdc++.h>

using namespace std;

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

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

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