Question

ребята срочно нужна помощь. есть программа в pascal она звучит так: Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите самую низкую температуру за время наблюдения. Если температура опускалась ниже –15 градусов, выведите YES, иначе выведите NO. даны числа :4,-5,12,-2,8. не могу вывести -5. вот сама программа:
program z3;
var t, n, i: integer;
begin
writeln('Кол-во дней');
readln(n);
for i:=1 to n do
begin
write('Температура в ', i, ' день: ');
readln(t);
end;
if t < -15 then writeln('Yes')
else writeln('No');
end.
зарание спасибо!

Answer 1

Ты сделал условие вне цикла и тебе будет выдавать yes или no только за последний день.

program z3;
var t, n, d, i: integer;
begin
writeln('Кол-во дней');
readln(n);
for i:=1 to n do
begin
write('Температура в ', i, ' день: ');
readln(t);
if t < -15 then d:=d+1;
end;
if d > 0 then writeln('Yes')
else writeln('No');
end.