Что будет выведено на экран после выполнения программы. Реши табличным
Var k, m: integer; Dat: array[1…10] of integer; Begin Dat [1] := 16; Dat [2] := 20; Dat [3] := 20; Dat [4] := 41; Dat I51 := 14; Dat [6] := 21; Dat [7] := 28; Dat [8] := 12; Dat [9] := 15; Dat [10] := 35; m := 0; for k := 1 to 10 do if Dat [k] >m then
begin m := Dat [k]
end;
writeln (m) ; End.
В результате работы программы будет выведено '41', т.к. цикл производится при условии, что ячейка массива Dat больше предыдущей. Поэтому, добравшись до 5 элемента со значением 14, итерация прекратится, оставив переменной m значение 41.