Написать программу для Паскаль Найдите самую низкую температуру за время наблюдения, если температура опускалась нижу 15 градусов, выведите да, иначе - нет. Программа получает на входе количество дней, а для каждого дня вводитс...
Написать программу для Паскаль
Найдите самую низкую температуру за время наблюдения, если температура опускалась нижу 15 градусов, выведите да, иначе - нет. Программа получает на входе количество дней, а для каждого дня вводится температура.
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы