Задайте массив из 10 элементов с датчика случайных чисел. замените все элементы с нечетными индексами на минимальный. выведите на экран исходный и полученный массивы.

Writeln( 'Src' );
for i := 1 to 10 do begin a[ i ] := random(100); writerln( 'a[ ', i, '] = ', a[ i ] ); if (i = 1) or (a[ i ] < min) then min := a[ i ]; end;
writeln( 'Result' );
for i := 1 to 10 do begin if (odd(i)) then a[ i ] := min; writerln( 'a[ ', i, '] = ', a[ i ] ); end;