как вывести на экран из массива числа,стоящие на нечетных позициях?

Я за эту неделю уже около 50-раз решил именно такую задачу. Неужели тяжело поиском поспользоваться?

Сразу вам первая же ссылка будет правильным решением.

program prj1;
var i: integer;
A: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
A[ i ]:=random(10);
if ODD(i) then writeln(A[ i ], ' ' );
end;
readln;
end.

Вот еще одно решение.