Question

Решите, пожалуйста )) В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма Var k, m, day: integer; Dat: array[1..7] of integer; Begin Dat[1]:=7; Dat[2]:=9; Dat[3]:=10; Dat[4]:=8; Dat[5]:=6; Dat[6]:=7; Dat[7]:=6; day:= 1; m:=Dat[1]; for k:=2 to 7 do begin if Dat[k] < m then begin m:=Dat [k]; day:=k end end write(day); End. Ответ: ___________________________.

Answer 1

Ответ: 5.

Если Dat[k] < m, то m:=Dat[k], day:=k, где изначально m:=Dat[1]

Dat[2]<m => 9<7 - нет, значит проверяем следующий элемент
Dat[3]<m => 10<7 - нет,
Dat[4]<m => 8<7 - нет,
Dat[5]<m => 6<7 - да, значит m:=Dat[5]; day:=5;
Dat[6]<m => 7<6 - нет
Dat[7]<m => 6<6 - нет

В итоге выводится переменная day, которая после цикла равна 5

Answer 2

Данный алгоритм находит номер дня недели, в котором была зафиксирована минимальная среднесуточная температура.

На первой строке определяются данные за каждый день недели (от понедельника до воскресенья).

Затем в переменную "m" записывается значение среднесуточной температуры в понедельник (Dat[1]).

Далее в цикле от второго до седьмого дня происходит сравнение среднесуточной температуры текущего дня с минимальной температурой (m). Если температура текущего дня меньше, чем минимальная температура, то значение переменной "m" заменяется на значение текущей температуры, а в переменную "day" записывается номер текущего дня (k).

В конце алгоритма на экран выводится значение переменной "day", то есть номер дня с минимальной среднесуточной температурой.

Исходя из предоставленных данных, можно вычислить, что минимальная температура была зафиксирована в воскресенье (Dat[7]=6). Следовательно, на экран будет выведено число "7".