Упр.3.82 ГДЗ Сборник упражнений Босова 7-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 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$$
Программа просматривает все элементы массива и увеличивает счётчик 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.
Ответ: $$m = 3$$
