13. В таблице Work хранятся данные о количестве заказов, принятых фирмой «Алоэ с первого по 15 ноября. (Work[1] - число заказов, принятых 1 ноября, Work[2] - 2 ноября и т. д.). Определите, какое число будет напечатано в результате работы следующей программы... 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.

Разберем код программы построчно, чтобы понять, что она делает.

1. Var k, m: integer; – Объявляются две целочисленные переменные: k (счетчик цикла) и m (счетчик дней, когда количество заказов было меньше 7).
2. Work: array[1..15] of integer; – Объявляется массив Work из 15 элементов, каждый из которых является целым числом. Этот массив хранит данные о количестве заказов, принятых в каждый из 15 дней ноября.
3. Далее идет блок присваиваний значений элементам массива Work. Например, Work[1] := 5; означает, что 1 ноября было принято 5 заказов, Work[2] := 4; – 2 ноября было принято 4 заказа, и так далее.
4. m := 0; – Переменная m инициализируется нулем. Она будет использоваться для подсчета количества дней, когда количество заказов было меньше 7.
5. For k:=1 to 15 Do – Начинается цикл, который будет выполняться 15 раз. Переменная k будет изменяться от 1 до 15, представляя каждый день ноября.
6. If Work[k] < 7 Then Begin – Внутри цикла происходит проверка: если количество заказов в день k (то есть Work[k]) меньше 7, то выполняется следующий блок кода.
7. m := m + 1: – Если условие Work[k] < 7 выполняется, то значение переменной m увеличивается на 1. Это означает, что мы нашли еще один день, когда количество заказов было меньше 7.
8. End; – Конец условного оператора.
9. Writeln (m); – После завершения цикла программа выводит значение переменной m на экран.

Теперь давайте посчитаем, сколько раз условие Work[k] < 7 будет выполнено:

• Work[1] = 5 (меньше 7)
• Work[2] = 4 (меньше 7)
• Work[3] = 5 (меньше 7)
• Work[4] = 7 (не меньше 7)
• Work[5] = 6 (меньше 7)
• Work[6] = 12 (не меньше 7)
• Work[7] = 7 (не меньше 7)
• Work[8] = 3 (меньше 7)
• Work[9] = 9 (не меньше 7)
• Work[10] = 7 (не меньше 7)
• Work[11] = 0 (меньше 7)
• Work[12] = 9 (не меньше 7)
• Work[13] = 1 (меньше 7)
• Work[14] = 0 (меньше 7)
• Work[15] = 8 (не меньше 7)

Считаем количество дней, когда количество заказов было меньше 7: 1, 2, 3, 5, 8, 11, 13, 14. Всего 8 дней.

Следовательно, значение переменной m после выполнения программы будет равно 8.

Ответ: 8