Решите, пожалуйста )) В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.д.). Определите, что будет напечатано в результате выполне...
Решите, пожалуйста ))
В таблице 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.
Ответ: ___________________________.
Гость
Ответ(ы) на вопрос:
ГостьОтвет: 5.
Если Dat[k] < m, то m:=Dat[k], day:=k, где изначально m:=Dat[1]
Dat[2] 9<7 - нет, значит проверяем следующий элемент
Dat[3] 10<7 - нет,
Dat[4] 8<7 - нет,
Dat[5] 6<7 - да, значит m:=Dat[5]; day:=5;
Dat[6] 7<6 - нет
Dat[7] 6<6 - нет
В итоге выводится переменная day, которая после цикла равна 5
Не нашли ответ?
Похожие вопросы