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

Задача

В результате работы программы будет выведено количество элементов массива больших 14: 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 k := 1 to 7 do
if Dat[k] > 14 then m := m + 1;
writeln(‘ m=’, m)
end.

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

В массиве Dat заданы значения:

$$12,\ 14,\ 13,\ 15,\ 15,\ 12,\ 16$$

Программа считает, сколько элементов массива больше $$14$$.

Такими элементами являются:

$$15,\ 15,\ 16$$

Их количество равно $$3$$, значит, в переменной 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.