Question

Решите срочно, пожалуйста! Через 40 минут сдавать работу!!!Садовник, работая в оранжерее ботанического сада, записывал в таблицу Flow количество видов растений, цветущих в текущем месяце. (Flow[1] — количество цветущих растений в январе, Flow[2] – в феврале и т. д.). Определите, какое число будет напечатано в результате работы следующей программы: Var k, m: integer; Flow: array[1..12] of integer; Begin Flow[1] := 25; Flow[2] := 33; Flow[3] := 45; Flow[4] := 56; Flow[5] := 78; Flow[6] := 112; Flow[7] := 120; Flow[8] := 133; Flow[9] := 97; Flow[10] := 77; Flow[11] := 59; Flow[12] := 34; m := 23; For k := 1 to 12 Do If Flow[k] < 50 Then Begin m := m + 1; End; Writeln(m); End.

Answer 1

Вставил задачу в паскаль, ответ = 27

Answer 2

Данная программа считает количество месяцев, в которых количество цветущих растений в оранжерее ботанического сада было меньше 50.

Изначально, в массиве Flow заданы значения количества цветущих растений в каждом из 12 месяцев. Переменная m инициализируется значением 23. Затем происходит цикл for, который перебирает все элементы массива Flow от 1 до 12 включительно. Внутри цикла происходит проверка условия: если количество цветущих растений в текущем месяце меньше 50, то переменная m увеличивается на 1.

После окончания цикла на экран выводится значение переменной m, которое и является ответом на задачу.

Таким образом, программа напечатает число 31, если количество цветущих растений в четырех месяцах (январь, февраль, ноябрь и декабрь) было меньше 50.