Cod sursa(job #287161)

Utilizator ErgoVicol Sergiu Constantin Ergo Data 24 martie 2009 16:32:57
Problema Medie Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include <fstream>
#define VMAX 7100
#define RVMAX 7000
#define ll long long
using namespace std;

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

ll V[VMAX], N, SMAX;

int main()
{
    ll i, a, j, k;
    fin >>N;
    for (i = 1; i <= N; i++)
    {
        fin >>a;
        V[a]++;
    }
    for (i = 1; i <= RVMAX; i++)
        if (V[i] > 0)
        {
            if (V[i] >= 3) SMAX += ( V[i]*(V[i]-1)*(V[i]-2) )/2  ;
            for (j = i+1, k = i-1; k >= 1 && j <= RVMAX; k--, j++)
                SMAX += V[k] * V[j] * V[i];
        }
    fout <<SMAX;
    fout.close();
    return 0;
}