Cod sursa(job #2181002)

Utilizator CodCatalinCodreanu Catalin CodCatalin Data 21 martie 2018 13:08:02
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <fstream>
using namespace std;

ifstream f("medie.in");
ofstream g("medie.out");

int n,v[9003],s[14003],ap[9003],nr;
int main()
{

    f>>n;
    for(int i=1;i<=n;++i)f>>v[i],ap[v[i]]++;
    for(int i=1;i<n;++i)
        for(int j=i+1;j<=n;++j)s[v[i]+v[j]]++;
    for(int i=1;i<=n;++i)
    {
        nr+=s[2*v[i]]-ap[v[i]]+1;
    }
    g<<nr<<'\n';
    return 0;
}