Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Ребята срочно нужна помощь. есть программа в 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.
зарание спасибо!

Ответ оставил Гость

Ты сделал условие вне цикла и тебе будет выдавать 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.