(PASCAL)Напишите программу для решения следующей задачи. Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите самую низкую температуру за время наблюдения. Если температура опускалась ниже –15 градусов, выведите YES, иначе выведите NO. Программа получает на вход количество дней, в течение которых проводилось измерение температуры N (1 ≤ N ≤ 31), затем для каждого дня вводится температура. Пример работы программы:Входные данные4–512–28Выходные данные–5NO
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сделайте и скиньте таблицу как вы сделаете
Автор: stertumasova29
Формирование виртуального пространства. Перемещение в пространстве.C#
Автор: Ka2ffka141
Приведите пример полного и неполного условного алгоритма. Начертите блок схему. .
Автор: kotikdmytriy11
Чим відрізняється депозит без капіталізації від депозиту з капіталізацією?
Автор: Васильевичь Виктория457
, я в этом ничего не понимаю
Автор: ivanova229
Дано натуральное число n. чему равно сумма его цифр ?
Автор: eliteclassic308
Запишите 5 различных имён файлов, удовлетворяющих маске $%$#
Автор: info-mosbalkon
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.