Упр.82 ГДЗ Рабочая тетрадь Босова 9 класс (Информатика)

Задача

В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] — данные за понедельник, Dat[2] — данные за вторник и т. д.). Определите, что будет выведено в результате работы следующей программы, записанной на алгоритмическом языке. Запишите эту же программу на языке Паскаль.
Алгоритмический язык
Паскаль
program Z_82;
const Dat: array [1..7] of integer = (12, 14, 13, 15, 15, 12, 16);
var i, m: integer;
begin
  m := 0;
  for i := 1 to 7 do
    if Dat[i] > 14 then m := m + 1;
  writeln(‘ m=’, m)
end.

Подробный ответ

Переменная $$m$$ сначала равна $$0$$. Затем программа последовательно просматривает все элементы массива $$Dat$$ и увеличивает $$m$$ на 1 каждый раз, когда значение температуры больше $$14$$.

Даны значения:

$$Dat = (12, 14, 13, 15, 15, 12, 16)$$

Проверим элементы, которые больше $$14$$:

$$12$$ — нет;
$$14$$ — нет;
$$13$$ — нет;
$$15$$ — да;
$$15$$ — да;
$$12$$ — нет;
$$16$$ — да.

Таких значений три, значит, после выполнения программы будет выведено $$m = 3$$.

Программа на языке Паскаль:

program Z_82;
const
  Dat: array [1..7] of integer = (12, 14, 13, 15, 15, 12, 16);
var
  i, m: integer;
begin
  m := 0;
  for i := 1 to 7 do
    if Dat[i] > 14 then m := m + 1;
  writeln(‘m=’, m);
end.