Вопрос:

Заполни пропуски в программе, используя предложенные варианты ответов. Задача: найти значение минимального элемента в одномерном массиве, который заполняется случайными числами.

Смотреть решения всех заданий с листа

Ответ:

program max_min; var M: array[1..10] of integer;\(
i\), min: integer; begin randomize; for i := 1 to 10 do begin M[i] := random(10); write(M[i], ' ') end; min := M[1]; for i := 2 to 10 do if (min > M[i]) then min := M[i]; writeln(' '); end. Разберем программу по частям: 1. `program max_min;` – объявление программы с именем `max_min`. 2. `var M: array[1..10] of integer;` – объявление массива `M`, который состоит из 10 элементов (индексы от 1 до 10), и каждый элемент является целым числом (integer). 3. `i, min: integer;` – объявление двух переменных: `i` (для цикла) и `min` (для хранения минимального значения). Обе переменные имеют тип integer (целое число). 4. `begin ... end.` – начало и конец основной части программы. 5. `randomize;` – инициализация генератора случайных чисел, чтобы каждый раз при запуске программы числа были разными. 6. `for i := 1 to 10 do ...` – цикл, который повторяется 10 раз (от 1 до 10). 7. `M[i] := random(10);` – присваивание элементу массива `M` с индексом `i` случайного целого числа от 0 до 9 (функция `random(10)` возвращает число от 0 до 9). 8. `write(M[i], ' ');` – вывод значения элемента массива `M[i]` и пробела на экран. 9. `min := M[1];` – присваивание переменной `min` значения первого элемента массива `M` (считаем, что это пока минимальное значение). 10. `for i := 2 to 10 do ...` – цикл, который начинается со второго элемента массива (индекс 2) и идет до конца (индекс 10). 11. `if (min > M[i]) then min := M[i];` – если текущее значение `min` больше, чем значение элемента массива `M[i]`, то `min` присваивается значение `M[i]` (то есть находим новое минимальное значение). 12. `writeln(' ');` – вывод пробела на экран после завершения цикла.
ГДЗ по фото 📸
Подать жалобу Правообладателю