Question

В таблице 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. ______ Пожалуйста, поясните как решать, серьёзно не доходит)

Answer 1

Пояснения к задаче - в прилагаемом файле