Предмет: Информатика,
автор: Jeannah
Помогите пожалуйста!!!!
Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все элементы с нечетными индексами на минимальный. Выведите на экран исходный и полученный массивы.
Ответы
Автор ответа:
0
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;
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;
Интересные вопросы
Предмет: Английский язык,
автор: superartem1234566
Предмет: Алгебра,
автор: danilsnevyrtalov35
Предмет: Алгебра,
автор: danili05
Предмет: Обществознание,
автор: Ирих
Предмет: Математика,
автор: Fima100500