Var k, m: integer; Dat: array(1..10) of integer; Begin Dat (1) i= 12; Dat (2) - 15; Dat...

Question

Var k, m: integer; Dat: array(1..10) of integer; Begin Dat (1) i= 12; Dat (2) - 15; Dat (3) := 17; Dat (4) re 15; Dat (5] : 14; Dat (6) := 12; Dat [7] := 10; Dat [8] : 13; Dat (9) * 14; Dat (10) * 15; m := 20; for k:=1 to 10 do if Dat (k) < m then begin m : Dat(k): end; writeln(m): End.

Answer 1

Ответ:

m не меняется, поэтому будет напечатано 20