Нужна . есть программа в pascal она звучит так: ученики - вопрос №37305414 от ГолубьДеревенский 19.09.2020 06:27

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

ГолубьДеревенский · Answer

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