Задание

В таблице D хранятся данные о количестве сделанных заданий учениками (D[1] заданий сделал первый ученик, D[2] — второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Program primer;

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] := 8;

D[9] := 6; D[10] := 9;

m := 10;

n := 0;

for k := 1 to 10 do

if D[k] < m then

begin

m := D[k];

n := k;

end;

writeln(n);

End.