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.