Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. Размер носить массива произвольнаЯ

Var

a : array [1 ... 1000] of integer;

i, n, z, p, m : integer;

begin

i : = 0;

while not eoln do

begin

read (z) ;

inc (i) ;

a[i] : = z;

end;

m: = i; n:=0; z:=0; p: = 0;

for i : = 1 to m do

if i mod 2 = 0 then

begin

if a[i] < = then inc (n)

else if a[i] > 0 then inc (p)

else inc (z) ;

end;

writeln (n, ' ', z, ' ', p) ;

end.