Упр.3.82 ГДЗ Сборник упражнений Босова 7-9 класс (Информатика)

Задача

В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах ($$\mathrm{Dat}[1]$$ — данные за понедельник, $$\mathrm{Dat}[2]$$ — данные за вторник и т. д.). Определите, что будет выведено в результате работы следующей программы, записанной на алгоритмическом языке. Запишите эту же программу на языке Паскаль.

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

В массиве Dat значения такие: $$12,\ 14,\ 13,\ 15,\ 15,\ 12,\ 16$$.

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

Таких элементов три: $$15,\ 15,\ 16$$. Значит, после выполнения программы:

$$m = 3$$

Паскаль

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