Втаблице dat хранятся данные о количестве самолётов, отправляющихся из аэропорта города на юг в первой декаде августа (dat[1] — количество самолётов первого числа, dat[2] — количество самолётов второго числа и т. определите, что будет напечатано в результате выполнения следующего алгоритма, записанного на трёх алгоритмических языках. var k, m, day: integer; dat: of integer; begin dat[1] : = 2; dat[2] : = 2; dat[3] : = 3; dat[4] : = 3; dat[5] : = 2; dat[6] : = 2; dat[7] : = 5; dat[8] : = 5; dat[9] : = 6; dat[10] : = 6; day: =1; m : = dat[1]; for k : = 2 to 10 do if dat[k] =< m then begin m: = dat[k]; day : = k; end; write(day); end. объясните по подробнее

До работы цикла переменной  day присваиваем 1 (в конце он будет равен номеру дня-  day : = k, полученному врез. выполнения программы). переменной  m присваиваем значение 1-го дня=2. затем начинаем сравнивать значения  dat[k] =< m , начиная с  k : = 2 до 10,  если условие верно,  m: присваиваем значение  dat[k],  day : = k.1 шаг сравниваем  dat[k] =< m (dat[2]( а это  2) =< 2да, верно  m: =2,   day : =2.2 шаг 3  =<   2 нет,   оставляем  m: =2,   day : =23 шаг 3  =<   2 нет,  m: =2,   day : =24 шаг 2  =<   2  , да,  m: =2,  day : =5 5 шаг 2  =<   2 , да,    m: =2,   day : =6 6 шаг 5  =<   2 нет,  m: =2,   day : =67 шаг  5  =<   2 нет,  m: =2,   day : =6 8 шаг 6  =<   2 нет,  m: =2,   day : =6 9 шаг  6  =<   2 нет,  m: =2,   day : =6 на экране будет число 6 ( write(day))

Будет напечатан день декады, в который вылетело меньше  всего самолетов. причем если таких дней несколько будет выбран последний из них. в нашем случае это 6. ниже в программе после // написано пояснение к нижеследующему коду. var k, m, day: integer;   dat: of integer; begin  // здесь определяются  значения элементов массиа dat - количество самолетов за каждый день декады dat[1] : = 2;   dat[2] : = 2; dat[3] : = 3;   dat[4] : = 3;   dat[5] : = 2;   dat[6] : = 2;   dat[7] : = 5;   dat[8] : = 5;   dat[9] : = 6;   dat[10] : = 6;   //переменным день и m присваиваются начальные значения //переменная m предназначена для запоминания  промежуточного результата работы алгоритма.  day: =1; m : = dat[1];   //организуем цикл в котором каждый (начиная со второго) день сравнивается с текущим значением m в котором фиксируется каждый раз меньшая величина из двух сравниваемых  по количеству самолетов for k : = 2 to 10 do  //если кол-во самолетов в  текущий день (dat[k]) меньше или равно самому меньшему количеству самолетов за предыдущие дни ( мы помним, что m изначально  присвоили значение для первого то значение m меняем на значение  dat[k] и переменной  day  присваиваем номер этого дня if dat[k] =< m then  begin  m: = dat[k]; day : = k; end;   //после работы цикла выводим последнее значение day. т.е. номер дня, в котором вылетело меньше всего самолетов write(day);   end.

братан я не знаю когда узнаю дам отвкт