Определи, что будет выведено в результате работы программы: program prog; var i, count, m1, m2: integer; const arr: array [1..10] of integer = (47, 38, 49, 74, 86, 89, 74, 23, 20, 21); begin count := 0; m1 := arr[1]; m2 := arr[1]; for i := 1 to 10 do begin if arr[i] < 50 then count := count + 1; if m1 > arr[i] then m1 := arr[i]; if m2 < arr[i] then m2 := arr[i]; end; write((m1 + m2) * count); end.

Давайте разберем, что будет выведено в результате работы данной программы на языке Pascal. ### Анализ программы 1. **Определение переменных и массива**: - `i`, `count`, `m1`, `m2`: переменные типа `integer`. - `arr`: массив из 10 элементов с заданными значениями: `(47, 38, 49, 74, 86, 89, 74, 23, 20, 21)`. 2. **Инициализация переменных**: - `count` инициализируется значением 0. - `m1` и `m2` инициализируются значением первого элемента массива, т.е. `m1 = 47` и `m2 = 47`. 3. **Основной цикл (от 1 до 10)**: Программа проходит по всем элементам массива `arr` с индексами от 1 до 10 и выполняет 3 проверки в каждом шаге: - **Подсчет элементов меньше 50**: ```pascal if arr[i] < 50 then count := count + 1; ``` Находим элементы массива, которые меньше 50: - `arr[1]`: 47 (меньше 50) → count = 1 - `arr[2]`: 38 (меньше 50) → count = 2 - `arr[3]`: 49 (меньше 50) → count = 3 - `arr[4]`: 74 (не меньше 50) → count = 3 - `arr[5]`: 86 (не меньше 50) → count = 3 - `arr[6]`: 89 (не меньше 50) → count = 3 - `arr[7]`: 74 (не меньше 50) → count = 3 - `arr[8]`: 23 (меньше 50) → count = 4 - `arr[9]`: 20 (меньше 50) → count = 5 - `arr[10]`: 21 (меньше 50) → count = 6 В итоге, `count = 6`, так как всего 6 элементов меньше 50. - **Поиск минимального элемента**: ```pascal if m1 > arr[i] then m1 := arr[i]; ``` В процессе итерации сравниваем `m1` с каждым элементом массива. Минимального элемента мы не изменим, так как первый элемент (47) является минимумом среди 47, 38 и 49. Таким образом, находим: - Обновление: `m1 = 38` (при i = 2), затем `m1` больше не изменится, так как остальные элементы больше. - **Поиск максимального элемента**: ```pascal if m2 < arr[i] then m2 := arr[i]; ``` В этом случае мы обновляем максимальное значение: - Обновление: `m2 = 74` (при i = 4), затем `m2 = 86` (при i = 5), затем `m2 = 89` (при i = 6). В итоге `m2 = 89`. ### Итоговые значения После завершения цикла: - `count = 6` - количество элементов меньше 50 - `m1 = 38` - минимальный элемент массива - `m2 = 89` - максимальный элемент массива ### Вычисление результата ```pascal write((m1 + m2) * count); ``` Подставляем значения: - `(m1 + m2) = (38 + 89) = 127` - Умножаем на `count`: `127 * 6 = 762` ### Вывод Таким образом, программа выведет на консоль `762`.