В таблице А хранятся данные о количестве учеников, опоздавших за неделю (A[1] - данные за понедельник, A[2] - за вторник и т.д).Определите, что будет напечатано в результате выполнения следующего алгоритма:Язык Pascal (Паскаль)var k,m,day: integer;A:array[1...6] of integer;BeginA[1]:=3A[2]:=1A[3]:=4A[4]:=2A[5]:=4A[6]:=2day:=1;m:=A[1]for k:=2 to 6 dobeginif A[k]>=m then beginm:=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, т.е. событие имело место в пятницу, когда опоздали четверо.