Втаблице work хранятся данные о количестве заказов, принятых фирмой "алоэ" с первого по 15 ноября. (work[1] – число заказов, принятых 1 ноября, work[2] – 2 ноября и т. определите, какое число будет напечатано в результате работы следующей программы. текст программы на трёх языках программирования. 1.алгоритмический язык алг нач целтаб work[1: 15] цел k, m work[1] : = 5; work[2] : = 4 work[3] : = 5; work[4] : = 7 work[5] : = 6; work[6] : = 12 work[7] : = 7; work[8] : = 3 work[9] : = 9; work[10] : = 7 work[11] : = 0; work[12] : = 9 work[13] : = 1; work[14] : = 0 work[15] : = 8 m : = 0 нц для k от 1 до 15 если work[k] < 7 то m : = m + 1 все кц вывод m кон 2.бейсик dim work(15) as integer dim k,m as integer work(1)= 5: work(2)= 4 work(3)= 5: work(4) = 7 work(5)= 6: work(6)= 12 work(7)= 7: work(8)= 3 work(9)= 9: work(10)= 7 work(11)= 0: work(12)= 9 work(13)= 1: work(14)= 0 work(15)= 8 m = 0 for k = 1 to 15 if work(k) < 7 then m = m + 1 end if next k print m 3.паскаль var k, m: integer; work: array[1..15] of integer; begin work[1] : = 5; work[2] : = 4; work[3] : = 5; work[4] : = 7; work[5] : = 6; work[6] : = 12; work[7] : = 7; work[8] : = 3; work[9] : = 9; work[10] : = 7; work[11] : = 0; work[12] : = 9; work[13] : = 1; work[14] : = 0; work[15] : = 8; m : = 0; for k : = 1 to 15 do if work[k] < 7 then begin m : = m + 1; end; writeln(m); end. , поясните как решать, серьёзно не доходит)
