Написать программу для Паскаль
10-11 класс
|
Найдите самую низкую температуру за время наблюдения, если температура опускалась нижу 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.
Другие вопросы из категории
отрицательных элементов каждого столбца
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
Найдите среднюю температуру для дней, когда температура поднималась выше 0 градусов, и определите количество таких дней. Программа получает на входе количество дней, в течение которых проводилось наблюдение, затем для каждого дня вводится температура.
X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
Дата вводится в формате "дд.мм.гг". Записать словесно название месяца и полностью указать год. Например, для 01.02.98 вывести "1 февраля тысяча девятьсот девяносто восьмой год", для 20.05.02 – "20 мая две тысячи второй год" и т.д.