Дан массив целых чисел А (10). Элементы с нечетным индексом заменить минимальным элементом

program zz1;

const n = 10; / / количество элементов указываем в массиве

Var i, min : integer; / / описываем переменные целочисленного типа

Var a: array [1 ... n] of integer;

begin

for i:=1 to n do / / случайным образом записываем в массив числа

a[i] : =random (201) - 60;

for i: = 1 to n do / / выводим числа на экран

write (a[i],' ');

writeln;

min: = 100000; / / указываем значение начальное для мин

for i:=1 to n do / / организуем перебор всех чисел массива

if a[i] < min then min: = a[i]; / / если число из массива меньше минимального, то записываем его в минимальное

writeln (' минимальный элемент = ', min);

for i:=1 to n do

if i mod 2 = 1 then a[i]:=min;

for i:=1 to n do / /выводим массив на экран

write (a[i],' ');

end.