Определите, какое число будет напечатано в результате работы следующей программы. var k,m,n: integer; D: array[1..10] of integer; begin D[1] := 7; D[2] := 9; D[3] := 10; D[4] := 5; D[5] := 6; D[6] := 7; D[7] := 9; D[8] := 3; D[9] := 6; D[10] := 9; m := 9; n := 0; for k := 1 to 10 do if D[k] < m then begin m := D[k]; n := k; end; writeln(n); end. 7 1 3 8
Задание

Определите, какое число будет напечатано в результате работы следующей программы.
var k,m,n: integer;
D: array

\[1\.\.10\]
of integer;
begin
D
\[1\]
:= 7;
D
\[2\]
:= 9;
D
\[3\]
:= 10;
D
\[4\]
:= 5;
D
\[5\]
:= 6;
D
\[6\]
:= 7;
D
\[7\]
:= 9;
D
\[8\]
:= 3;
D
\[9\]
:= 6;
D
\[10\]
:= 9;
m := 9; n := 0;
for k := 1 to 10 do
if D
\[k\]
< m then
begin
m := D
\[k\]
;
n := k;
end;
writeln\(n\);
end.

  • 7
  • 1
  • 3
  • 8