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

212

371

Посмотреть ответы 2

Ответы на вопрос:

Tolya567

Информатика

4,8(33 оценок)

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

olesm

Информатика

4,7(20 оценок)

Х) var i, k, b, a, sum: integer; begin for i : = 1 to 4 do begin readln(a); b : = a; k : = a; while (b > 0) do begin if (b mod 10 = 5) then begin k : = 0; end; b : = b div 10; end; sum : = sum + k; end; writeln(sum); end.