LOxxx24124

03.07.2020 14:18

Информатика

Есть ответ 👍

Втаблице dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (dat[1] — количество голосов, поданных за первого исполнителя; dat[2] — за второго и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык бейсик паскаль алг нач целтаб dat[1: 10] цел k, m dat[1] : = 16 dat[2] : = 20 dat[3] : = 20 dat[4] : = 41 dat[5] : = 14 dat[6] : = 21 dat[7] : = 28 dat[8] : = 12 dat[9] : = 15 dat[10] : = 35 m : = 0 нц для k от 1 до 10 если dat[k]> m то m : = dat[k] все кц вывод m кон dim dat(10) as integer dim k,m as integer dat(1) = 16: dat(2) = 20 dat(3) = 20: dat(4) = 41 dat(5) = 14: dat(6) = 21 dat(7) = 28: dat(8) = 12 dat(9) = 15: dat(10) = 35 m = 0 for k = 1 to 10 if dat(k)> m then m = dat(k) endif next k print m var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 16; dat[2] : = 20; dat[3] : = 20; dat[4] : = 41; dat[5] : = 14; dat[6] : = 21; dat[7] : = 28; dat[8] : = 12; dat[9] : = 15; dat[10] : = 35; m : = 0; for k : = 1 to 10 do if dat[k]> m then begin m : = dat[k] end; writeln(m); end.