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