В таблице Dat хранятся оценки (по десятибалльной шкале) студента по программированию за с начала учёбы семестров (Dat[1] — оценка за первый семестр, Dat[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; writeln(term); End.
Введите ответ

Маріямарія    2   29.04.2020 15:24    36