Cod sursa(job #2718209)

Utilizator etohirseCristi Cretu etohirse Data 8 martie 2021 16:21:14
Problema Medie Scor 10
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.54 kb
#include <iostream>
#include <fstream>

std::fstream fin("medie.in", std::ios::in);
std::fstream fout("medie.out", std::ios::out);

static const int mxn = 9e3, mxfv = 7e3;

int n, v[1 + mxn], fv[1 + mxfv];

int main(){
	fin >> n;
  for (int i = 1; i <= n; ++i){
    fin >> v[i];
    fv[v[i]]++;
  }
  long long ans(0);
  for (int i = 1; i <= n; ++i){
    for (int j = i + 1; j <= n; ++j){
      if (((v[i] + v[j]) & 1) ^ 1){
        ans += fv[v[i] + v[j] / 2];
        if (v[i] == v[j]) ans -= 2;
      }
    }
  }
  fout << ans << '\n';
  return 0;
}