Дан массив М: 24, 7, 14, 8, 56, 12, 48, 25, 19, 17. Что появиться на экране после выполнения фрагмента программы:
s:=m[1];
for k:=2 to 10 do
if m[k]>s then s:=m[k];
writeln(s);
запишите программу целиком

Хорошо, давайте разберем этот фрагмент программы по шагам.

Дан массив М: 24, 7, 14, 8, 56, 12, 48, 25, 19, 17.

1. Сначала объявим и инициализируем массив:

m: array[1..10] of Integer = (24, 7, 14, 8, 56, 12, 48, 25, 19, 17);

Обратите внимание, что массив имеет размерность от 1 до 10, так как у нас 10 элементов.

2. Теперь объявим переменные:

var
k, s: Integer;

Тут мы создаем две переменные: k, которая будет использоваться в цикле for, и s, которая будет использоваться для хранения максимального значения из массива M.

3. Запишем фрагмент программы целиком:

program FindMax;
var
k, s: Integer;
m: array[1..10] of Integer = (24, 7, 14, 8, 56, 12, 48, 25, 19, 17);
begin
s := m[1];
for k := 2 to 10 do
if m[k] > s then
s := m[k];
writeln(s);
end.

4. Теперь давайте разберем, что происходит на каждом шаге:

- Сначала мы присваиваем переменной s значение первого элемента массива m[1], которое равно 24.
- Затем мы начинаем цикл for, в котором переменная k будет изменяться от 2 до 10.
- Внутри цикла мы проверяем, если элемент m[k] больше текущего значения переменной s, то мы обновляем значение переменной s. На каждом шаге цикла мы сравниваем элементы массива m[k] с переменной s и обновляем значение s, если максимальное значение меньше текущего элемента массива.
- После окончания цикла, когда k достигнет значения 10, мы выводим на экран значение переменной s с помощью команды writeln(s). В данном случае, значение s будет равно 56 (максимальное значение массива M).

Таким образом, после выполнения данного фрагмента программы на экране появится число 56.