Var i, m: целое число; const A: массив [1..10] целых чисел=(12, 11, 21, 10, 12, 7, 14, 9, 23, 10); начинать м := 0; для i:=1 до 10 сделать если А[я]>м тогда м:=А[я]; пишителн (м) конец. Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на языке программирования Паскаль

Рассмотрим программу по шагам: ```pascal var i, m: целое число; const A: массив [1..10] целых чисел = (12, 11, 21, 10, 12, 7, 14, 9, 23, 10); начинать м := 0; для i := 1 до 10 сделать если А[i] > м тогда м := А[i]; конец, если конец. ``` **Задача:** найти, какое число будет напечатано — то есть, какое значение примет переменная `м` в конце работы программы. --- ### Шаг 1: Инициализация переменной `м` ```pascal м := 0; ``` Переменная `м` начинает с 0. --- ### Шаг 2: Итерация по массиву `A` Массив `A` содержит: `[12, 11, 21, 10, 12, 7, 14, 9, 23, 10]`. Цикл `for i := 1 to 10` последовательно перебирает каждый элемент массива. На каждой итерации выполняется следующее: ```pascal если А[i] > м тогда м := А[i]; ``` То есть, если текущий элемент больше текущего значения `м`, присваиваем `м` этот элемент. --- ### Шаг 3: Шаги итерации - **Изначально:** `м = 0`. 1. `i=1`, `A[1]=12`. `12 > 0` — верно, `м=12`. 2. `i=2`, `A[2]=11`. `11 > 12` — неверно, `м` остается 12. 3. `i=3`, `A[3]=21`. `21 > 12` — верно, `м=21`. 4. `i=4`, `A[4]=10`. `10 > 21` — неверно, `м` остается 21. 5. `i=5`, `A[5]=12`. `12 > 21` — неверно, `м` остается 21. 6. `i=6`, `A[6]=7`. `7 > 21` — неверно, `м` остается 21. 7. `i=7`, `A[7]=14`. `14 > 21` — неверно, `м` остается 21. 8. `i=8`, `A[8]=9`. `9 > 21` — неверно, `м` остается 21. 9. `i=9`, `A[9]=23`. `23 > 21` — верно, `м=23`. 10. `i=10`, `A[10]=10`. `10 > 23` — неверно, `м` остается 23. --- ### Итог В конце цикла переменная `м` примет значение **23**, так как это максимальное число в массиве. --- ### Ответ: **В результате работы программы будет напечатано число 23.**