Паскаль. Массивы

[Ондрюша]

сформировать массив случайным образом с числами из интервала -15 до 15, подсчитать количество четных элементов, стоящих на нечетных местах

[weech]

randomize;
for i:=1 to n do
   a[i]:=random(30)-15;
for i:=1 to n do
   if (a[i] mod 2 = 0) and (i mod 2<>0) then 
   inc(p);
writeln(p);

[Ондрюша]

Большое спасибо

[Serge_Bliznykov]

поправочка!
ваш код генерит числа от -15 до 14

а числа от -15 до 15 генерит такой код:

  a[i]:=random(31)-15;