Задайте массив из 10 элементов с датчика случайных однозначных положительных чисел. Замените все нечетные элементы с четными индексами на нули. Выведите на экран исходный и полученный массивы. Например, Массив случайных однозначных чисел: 1 7 3 4 5 1 7 8 9 3 Полученный массив: 1 0 3 4 5 0 7 8 9 0

Мне лениво каждый раз вводить значения от руки, поэтому массив заполняется рандомно (в задаче нет четкого указания) но если нужен ввод с клавы, его нетрудно заменить:
вместо
     A[i]:=random(20); 
     write(A[i]:4) 
надо
     readln (A[i])


program aaa;
var A: array[1..7] of integer; i: byte;
begin  
  randomize;  //запускаем генератор случайных чисел
  
  // формируем и одновременно выводим массив  
  writeln ('Исходный массив:');
  for i:=1 to 7 do
    begin
      A[i]:=random(20);  //рандомное значение 
      write(A[i]:4)  //вывод массива
    end;
  writeln;
  
  //проверяем условие и выводим номера нужных элементов:
  writeln ('номера нечётных элементов, стоящих на чётных местах :');
  writeln;
  for i:=1 to 7 do
   if ((i mod 2)=0) and ((A[i] mod 2)=1)
     then writeln (i:3) 
end.


Результат работы программы:

Исходный массив:
  13  16   7  11  11   5  17

номера нечётных элементов, стоящих на чётных местах :
  4
  6