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

nekit1307    1   23.07.2019 12:30    9