Регистрация
kolafeoktistovp0aj9j
24.10.2022 01:25
Информатика
Есть ответ 👍

Что будет выведено на экран после выполнения программы. Реши табличным

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.

122
337
Посмотреть ответы 1

Ответы на вопрос:

gukuwa09
gukuwa09
4,7(25 оценок)
Microsoft world, abiword, notepad++.там много их : )

Популярно: Информатика