Question

Помогите пожалуйста!!!!

 

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

Answer 1

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;