Задача из гиа 2012!

[XYLIGAN72]

Данная задача из ГИА 2012 №10 Поясните человеку почему в данной задаче получается 5

В таблице 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);
readln;
End.

Ответ: 5

[Rin]

Тут в цикле у тебя нахождение минимума, минимальная температура была в 5 день.

for k:=2 to 7 do 
begin
if Dat[k] < m then // сравнение  "что меньше"
begin
m:=Dat[k]; // в М запишется температура дня
day:=k // в day запишется какой сегодня день недели
end
end;

а дальше мы выводим на экран день недели (day), а не min температуру (М).
Надеюсь, что понятно.

[Alex11223]

Ну дык в цикле ищется первый (т.е. тут 2 дня с минимальной (6) температура, но т.к. условие <, то выведется тот, который раньше, если бы было бы <=, то наоборот вывелся бы последний) день с минимальной температурой и выводится его номер.

[XYLIGAN72]

Спасибо огромное! Можете закрыть тему!