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

Задача

Алгоритмический язык
Паскаль
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.
Ответ: 3

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

Переменная $$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.