В таблице D хранятся оценки (по десятибалльной шкале) студента по программированию за 8 прошедших с начала учёбы семестров (D[1] — оценка за первый семестр, D[2] — за второй и т. д.). Определите, что будет напечатано в результате выполнения следующего алгоритма. Program primer; Var k, m, term: integer; D: array[1..8] of integer; Begin D[1] := 7; D[2] := 7; D[3] := 6; D[4] := 8; D[5] := 4; D[6] := 5; D[7] := 8; D[8] := 7; m := D[1]; term := 1; for k := 2 to 8 do if D[k] > m then begin m := D[k]; term := k; end; writeln(term); End.
Задание

В таблице D хранятся оценки \(по десятибалльной шкале\) студента по программированию за 8 прошедших с начала учёбы семестров \(D⟨0⟩ — оценка за первый семестр, D⟨1⟩ — за второй и т\. д\.\). Определите, что будет напечатано в результате выполнения следующего алгоритма.
Program primer;
Var k, m, term: integer;
D: array

\[1\.\.8\]
of integer;
Begin
D
\[1\]
:= 7; D
\[2\]
:= 7;
D
\[3\]
:= 6; D
\[4\]
:= 8;
D
\[5\]
:= 4; D
\[6\]
:= 5;
D
\[7\]
:= 8; D
\[8\]
:= 7;
m := D
\[1\]
;
term := 1;
for k := 2 to 8 do
if D
\[k\]
> m then
begin
m := D
\[k\]
;
term := k;
end;
writeln\(term\);
End.