Нужно исправить текст программы на Pascale

[Ganty]

Задача: Разработать приложение, определяющее самый жаркий и самый холодный день прошедшей недели, если известна среднесуточная температура за каждый день

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

program pogoda;
type mas = array [1..7] of integer;
var
m:mas;
i, max,min:integer;
begin
for i:=1 to 7 do begin
writeln('введите среднесучтоную температуру ',i,' дня');
readln (m[i]);
end;
for i:=1 to 7 do begin
if m[i] < min then min:=m[i];
if m[i] > max then max:= m[i];
end;
for i:=1 to 7 do
begin
if m[i]=min then writeln ( i, ' -й день был самый холодный');
if m[i]=max then writeln ( i, '-й день был самый жаркий');
end; readln
end.

[Alex11223]

Перед циклом, в котором ищите их, max:=m[1] и аналогично минимум.

upd: Но вам нужна не температура, а номер дня. Поэтому в другую переменную присваивайте индекс (когда найден новый макс или мин) и потом его выводите (без последнего цикла).

upd2: Хотя и так должно работать. Просто min у вас = 0 (в Паскале не инициализированным переменным присваивается 0), а у вас видимо все температуры были больше 0.

[Ganty]

Спасибо большое, все работает