Cod sursa(job #3156815)

Utilizator BlaugranasEnal Gemaledin Blaugranas Data 13 octombrie 2023 12:05:16
Problema Medie Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.37 kb
#include<fstream>
using namespace std;
ifstream f("medie.in");
ofstream g("medie.out");
int v[7001],s,i,j,k,n;
int main()
{
    for(f>>n,i=1;i<=n;++i)
        f>>j,++v[j];
    for(i=1;i<7001;++i)
        for(k=v[i],s+=(k-2)*(k-1)*k/2,j=i-1,k=i+1;j>0&&k<7001;--j,++k)
            if(v[j]>0&&v[k]>0)
                s+=v[i]*v[j]*v[k];
    g<<s;
    return 0;
}