evaalmazova

28.01.2021 06:16

Информатика

Есть ответ 👍

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