Написать программу для Паскаль

Найдите самую низкую температуру за время наблюдения, если температура опускалась нижу 15 градусов, выведите да, иначе - нет. Программа получает на входе количество дней, а для каждого дня вводится температура.

Question

Информатика

Инюта

11 августа, 00:28

Написать программу для Паскаль

Найдите самую низкую температуру за время наблюдения, если температура опускалась нижу 15 градусов, выведите да, иначе - нет. Программа получает на входе количество дней, а для каждого дня вводится температура.

+4

Ответы (1)

Знаете ответ на вопрос?

Костюня · Answer 1

Var

m, k: single;

i, t: byte;

begin

m : = Single. MaxValue;

readln (t) ;

writeln () ;

for i : = 1 to t do

begin

readln (k) ;

m : = min (k, m) ;

end;

writeln ('Min: ', m, '; ', (m < - 15? 'Да' : 'Нет')) ;

end.