Задание

Определите, какое число будет напечатано в результате работы следующей программы.
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