Условие:
Задание \#2
Определите, что будет напечатано в результате выполнения следующего алгоритм.
Var k, m, term: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 7; Dat[2] := 7;
Dat[3] := 6; Dat[4] := 8;
Dat[5] := 4; Dat[6] := 5;
Dat[7] := 4; Dat[8] := 7;
term:=1; m := Dat[1];
for k := 2 to 8 do
if Dat[k] < m then
begin
m:= Dat[k];
term := k;
end;
End.
