(PASCAL)Напишите программу для решения следующей - вопрос №159247694 от машазайка1 03.09.2020 14:39

Question

Информатика: (PASCAL)Напишите программу для решения следующей задачи. Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите самую низкую температуру за время наблюдения. Если температура опускалась ниже –15 градусов, выведите YES, иначе выведите NO. Программа получает на вход количество дней, в течение которых проводилось измерение температуры N (1 ≤ N ≤ 31), затем для каждого дня вводится температура. Пример работы программы:Входные данные4–512–28Выходные данные–5NO

машазайка1 · Answer

var x:integer;

n: array[1..31] of integer;

begin

for var i:=1 to 31 do

begin

write('Введите температуру ',i,' дня: '); readln(n[i]);

if n[i]<x then x:=n[i];

end;

writeln; writeln('Минимальная тепература: ',x);

if x<-15 then writeln('YES') else writeln('NO');

end.