1. Программа обрабатывает одномерный целочисленный массив. Заполните трассировочную таблицу и определите, какое число будут выведено в результате работы программы var k, m, day: integer; day m k Pos[k] > m Pos: array[1..7] of integer; begin Pos[1] := 17; Pos[2] := 19; Pos[3] := 20; Pos[4] := 18; Pos[5] := 16; Pos[6] := 20; Pos[7] := 16; day := 1; m := Pos[1]; for k := 2 to 7 do if Pos[k] > m then begin m := Pos[k]; day := k end; write(day); end.
Ответ нейросети
10 февраля 2025 04:38
Понравился ответ?
Задай свой вопрос
Напиши любую задачу или вопрос, а нейросеть её решит



