Cod sursa(job #920373)

Utilizator svladScurtu Vlad svlad Data 20 martie 2013 11:40:11
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<fstream>
#include<iostream>
using namespace std;
ifstream f("medie.in");
ofstream g("medie.out");
int v[9005],w[7005];
int main()
{
    int i,j,N,S=0,x;
    f>>N;
    for(i=1;i<=N;i++) f>>v[i];
    for(i=1;i<=N;i++)
    {
        for(j=i+1;j<=N;j++)
        {   x=(v[i]+v[j])%2;
            if(x==0)
            {
                w[(v[i]+v[j])/2]++;
            if(v[i]==(v[i]+v[j])/2) S--;
            if(v[j]==(v[i]+v[j])/2) S--;
            }
        }
    }
    for(i=1;i<=N;i++)
    {
        S=S+w[v[i]];
    }
    g<<S;
    f.close();
    g.close();
    return 0;
}