Сделать вывод и цикл по индексу списка.

Заменить нечётные элементы по значению

program  raf105;

var  

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

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (a[i] mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Заменить нечётные элементы по индексу

program  raf105;

var  

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

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (i mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Язык PascalABC

                                          Значение переменной j                         10                            

j = 0

A[0]:=7;   A[1]:=3;   A[2]:=4;

A[3]:=8;   A[4]:=6;   A[5]:=9;

A[6]:=5;   A[7]:=2;   A[8]:=0;

A[9]:=1;

Итерация 1

k = 1

A[k] = A[1] ( 3 = 3 ) Условие A[1] > A[1] не соблюдено

j = 0

Итерация 2

k = 2

A[k] > A[1] ( 4 > 3 ) Условие A[2] > A[1] соблюдено

A[1] := 2

j = 0 + 2

j = 2

Итерация 3

k = 3

A[k] > A[1] ( 8 > 4 ) Условие A[3] > A[1] соблюдено

A[1] := 3

j = 2 + 3

j = 5

Итерация 4

k = 4

A[k] < A[1] ( 6 < 8 ) Условие A[4] > A[1] не соблюдено

j = 5

Итерация 5

k = 5

A[k] > A[1] ( 9 > 8 ) Условие A[5] > A[1] соблюдено

A[1] := 5

j = 5 + 5

j = 10

Итерация 6

k = 6

A[k] < A[1] ( 5 < 9 ) Условие A[6] > A[1] не соблюдено

j = 10

Итерация 7

k = 7

A[k] < A[1] ( 2 < 9 ) Условие A[7] > A[1] не соблюдено

j = 10

Итерация 8

k = 8

A[k] < A[1] ( 0 < 9 ) Условие A[8] > A[1] не соблюдено

j = 10

Итерация 9

k = 9

A[k] < A[1] ( 1 < 9 ) Условие A[9] > A[1] не соблюдено

j = 10