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