Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,dem,d: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]<0 then inc(dem);
If (A[i] mod 2 = 0) and (i mod 2 = 0) and (A[i]>0) then inc(d);
End;
Writeln('So luong cac so nguyen am la: ',dem);
Write('So cac so chan o vi tri chan la: ',d);
Readln
End.