Cod sursa(job #1396546)

Utilizator denisapirvuPirvu Denisa denisapirvu Data 22 martie 2015 17:51:47
Problema Medie Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.58 kb
#include <fstream>

using namespace std;
ifstream f("medie.in");
ofstream g("medie.out");
int a[9000],n,v[9000],f2[7000];
void cit()
{
    f>>n;
    int i;
    for(i=1;i<=n;i++)
    f>>a[i];
}
void rez()
{
    int i,j,aux,s=0;
    for(i=1;i<n;i++)
    {
        f2[i]++;
        for(j=i+1;j<=n;j++)
        {
            aux=(a[i]+a[j])/2;
          if(aux*2==(a[i]+a[j]))
          v[aux]++;
        }

    }
    f2[n]++;
    for(i=1;i<=n;i++)
    if(v[a[i]]!=0)
    s=s+v[a[i]]-f2[a[i]]+1;
    g<<s;
}
int main()
{
    cit();
    rez();
    return 0;
}