13. В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ» с первого по 15 ноября. (Work[I] - число заказов, принятых 1 ноября. Work[2] - 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Work: array[1..15] of integer; Begin Work [1] := 5; Work[3] := 5; Work[5] := 6; Work [7] := 7; Work [9] := 9; Work [2] := 4; Work [4] := 7; Work [6] := 12; Work [8]:= 3; 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.

Ответ: 8

Разбираемся:

1. Инициализируем переменную m нулем.
2. Проходим по массиву Work от 1 до 15.
3. Для каждого элемента массива проверяем, меньше ли он 7:
• Work[1] = 5 < 7, тогда m = m + 1 = 1
• Work[2] = 4 < 7, тогда m = m + 1 = 2
• Work[3] = 5 < 7, тогда m = m + 1 = 3
• Work[4] = 7 < 7 - неверно
• Work[5] = 6 < 7, тогда m = m + 1 = 4
• Work[6] = 12 < 7 - неверно
• Work[7] = 7 < 7 - неверно
• Work[8] = 3 < 7, тогда m = m + 1 = 5
• Work[9] = 9 < 7 - неверно
• Work[10] = 7 < 7 - неверно
• Work[11] = 0 < 7, тогда m = m + 1 = 6
• Work[12] = 9 < 7 - неверно
• Work[13] = 1 < 7, тогда m = m + 1 = 7
• Work[14] = 0 < 7, тогда m = m + 1 = 8
• Work[15] = 8 < 7 - неверно
4. В результате работы программы будет напечатано значение переменной m, равное 8.

Ответ: 8