#include<cstdio>
#define numar_intreg int
#define foloseste using
#define spatierea namespace
#define standard std
#define panou_principal main
#define deschide freopen
#define intrare stdin
#define iesire stdout
#define citeste scanf
#define scrie printf
#define pentru(i,a,n)   for(int i=a;i<=n;++i)
#define daca if
#define creste ++
#define intoarce return
#define creste_cu +=
#define scade_cu -=
#define este_egal_cu ==
#define ia_valoarea =
#define supra_2 >>1
#define mod_2 &1
foloseste spatierea standard;
numar_intreg n,a[10001],frecv[10001],x,nr,i,j;
int panou_principal()
{
	deschide("medie.in","r",intrare);
	deschide("medie.out","w",iesire);
	citeste("%d\n",&n);
	pentru(i,1,n) citeste("%d\n",&a[i]),frecv[a[i]]creste;
	pentru(i,1,n)
		pentru
		(j,i+1,n)
		{
			x ia_valoarea a[j]+a[i];
			daca((x mod_2) este_egal_cu 0)
			{
				x ia_valoarea (a[j]+a[i])supra_2;
				nr creste_cu frecv[x];
				daca (a[i] este_egal_cu x) nr scade_cu 2;
			}
		}
	scrie("%d\n",nr);
	intoarce 0;
}