Ответ:

program c;

var A:array [1..1000] of integer;

i,n:integer;

begin

writeln('n<=1000');

write('n=');

readln(n);

for i:=1 to n do

begin

A[i]:=random(100)-9;

if i mod 2 = 0 then write('A[',i,']=',A[i],' ')

end

end.

Объяснение:

i mod 2 = 0 - проверка номера элемента на четность