Втаблице а хранятся данные о количестве учеников, опоздавших за неделю (a[1] - данные за понедельник, a[2] - за вторник и т.д). определите, что будет напечатано в результате выполнения следующего алгоритма: язык pascal (паскаль) var k,m,day: integer; a: of integer; begin a[1]: =3 a[2]: =1 a[3]: =4 a[4]: =2 a[5]: =4 a[6]: =2 day: =1; m: =a[1] for k: =2 to 6 do begin if a[k]> =m then begin m: =a[k]; day: =k; end; end; write(day); end. напишите с обьяснением, ; )
var
k, m, day: integer;
A: array[1..6] of integer;
begin
A[1] := 3;
A[2] := 1;
A[3] := 4;
A[4] := 2;
A[5] := 4;
A[6] := 2;
day := 1;
m := A[1];
for k := 2 to 6 do
begin
if A[k] >= m then
begin
m := A[k];
day := k;
end;
end;
write(day);
end.
Эта программа отыскивает последний из дней недели, в котором количество опоздавших превысит количество опоздавших в понедельник.
Будет выдано значение 5, т.е. событие имело место в пятницу, когда опоздали четверо.