Заполните пропуски в коде программы.

```pascal program example; var M: array[1..10] of integer; i, max: integer; begin max := 0; for i := 1 to 10 do begin M[i] := random(10); write(M[i], ' '); end; writeln; max := M[1]; for i := 1 to 10 do begin if (M[i] > max) then max := M[i]; end; writeln('Максимальный элемент: ', max); end. ``` **Объяснение:** 1. `max := 0;` - Инициализируем переменную `max` начальным значением 0. Это важно, чтобы при сравнении с элементами массива мы могли корректно найти наибольший. 2. `writeln;` - После первого цикла `for` добавляем `writeln`, чтобы перевести курсор на новую строку после вывода сгенерированного массива. 3. `max := M[1];` - Перед вторым циклом `for` присваиваем переменной `max` первый элемент массива `M[1]`. Это необходимо, чтобы было с чем сравнивать остальные элементы массива. 4. `if (M[i] > max) then` - Внутри второго цикла `for` проверяем, если текущий элемент массива `M[i]` больше текущего значения `max`, то выполняем следующее действие. 5. `max := M[i];` - Если `M[i]` больше `max`, то обновляем значение `max`, присваивая ему `M[i]`. Таким образом, `max` всегда будет содержать наибольший элемент, найденный до текущего момента. 6. `writeln('Максимальный элемент: ', max);` - После завершения цикла `for` выводим значение переменной `max`, которое будет содержать наибольший элемент массива. **Заполненный код:** ```pascal program example; var M: array[1..10] of integer; i, max: integer; begin max := 0; for i := 1 to 10 do begin M[i] := random(10); write(M[i], ' '); end; writeln; max := M[1]; for i := 1 to 10 do begin if (M[i] > max) then max := M[i]; end; writeln('Максимальный элемент: ', max); end. ```