(PASCAL)Напишите программу для решения следующей задачи. Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите самую низкую температуру за время наблюдения. Если температура опускалась ниже –15 градусов, выведите YES, иначе выведите NO. Программа получает на вход количество дней, в течение которых проводилось измерение температуры N (1 ≤ N ≤ 31), затем для каждого дня вводится температура. Пример работы программы:Входные данные4–512–28Выходные данные–5NO
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Значки каких объектов могут располагаться на рабочем столе?
Автор: Екатерина1979
Напишите эссе для чего знать технику безопасности
Автор: Dmitrii sergei463
Памятка по технике безопасности в кабинете информатики
Автор: vladimyrgorbunov
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.