(PASCAL)Напишите программу для решения следующей задачи. Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите самую низкую температуру за время наблюдения. Если температура опускалась ниже –15 градусов, выведите YES, иначе выведите NO. Программа получает на вход количество дней, в течение которых проводилось измерение температуры N (1 ≤ N ≤ 31), затем для каждого дня вводится температура. Пример работы программы:
Входные данные
4
–5
12
–2
8
Выходные данные
–5
NO
marenich101520
2
22.12.2020 17:02
15
Другие вопросы по теме Информатика
rusnaktaniusha
04.06.2019 06:20
Нвдуооп
12.12.2020 03:28
silva78
12.12.2020 03:28
pustayai
12.12.2020 03:29
RihDest
12.08.2019 18:50
Вопросзнания
03.12.2020 21:15
lilik03
30.09.2019 00:47
MissRapunzel
30.09.2019 00:48
Популярные вопросы
- Казаки запорожцы. как звали казаков запорожцев(товарищей тараса бульбы)....
3 - Почему слово изморозь дано в словаре перед словом изморось? после...
1 - Вкаком слове правописание приставки не зависит от глухости или звонкости...
1 - Как называется группа веществ углерод, водород, кислород, азот...
1 - Будь-ласка, потрібен звуко - буквений аналіз слів: щастя, юлія, сім...
3 - Анализ стихотворения пловец языкова...
2 - Четыре энергетических уровня содержат электронные оболочки атомов...
3 - Разность двух углов aob и сob равна 54(это смежные углы) найдите эти...
3 - Проверте текст он должен быть написан в present simple или past continuousinteresting...
1 - Слово запрещение. к какой части речи относится?...
3
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.