Втаблице а хранятся данные о количестве учеников, опоздавших за неделю (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, т.е. событие имело место в пятницу, когда опоздали четверо.

Ответ

Самый простой способ - это с операций целочисленного деления разбить общее число секунд на часы, минуты, секунды. далее собрать нужную строку из получившихся значений, преобразовывая в строки. учитывая длины получившихся подстрок где надо добавляем 0 слева от начала подстроки. n = int(input('число секунд с начала суток: '))h = n // 3600n = n % 3600m = n // 60s = n % 60sh = str(h)sm = str(m)if len(sm)< 2:     sm = "0"+smss = str(s)if len(ss)< 2:     ss = "0"+ssprint(sh,': ',sm,': ',ss)тест №1число секунд с начала суток: 72002 : 00 : 00тест №2число секунд с начала суток: 7520120 : 53 : 21

Const   a: array of integer = (7, 3, 10, 9, 8, 4, 1, 6, 2, 5); begin   var n : = 0;   var found : = false;   repeat       found : = false;       for var i : = low(a) to high(a) - 1 do           if a[i] > a[i + 1] then begin               swap(a[i], a[i + 1]);               found : = true;               n : = n + 1;           end;   until not found;     writeln('swaps = ', n); end. ответ swaps = 30