Cod sursa(job #1105290)

Utilizator RaduGabriel2012Dinu Radu RaduGabriel2012 Data 11 februarie 2014 18:02:32
Problema Medie Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream f("medie.in");
ofstream g("medie.out");
 int n,v[9005],s[7005],ap[7005],sol;
int main()
{    int i,j;
    f>>n;

   for(i=1;i<=n;i++)
    {f>>v[i];
     ap[v[i]]++;
    }

   for(i=1;i<=n;i++)
    for(j=i+1;j<=n;j++)
     s[v[i]+v[j]]++;

   for(i=1;i<=n;i++)
    sol+=s[v[i]*2]-(ap[v[i]]-1)*(ap[v[i]]>1);

  g<<sol;

    return 0;
}