Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

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

10-11 класс

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

МАМка2014каша 25 сент. 2016 г., 2:26:58 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Юлечка49149
25 сент. 2016 г., 5:22:55 (7 лет назад)

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.

Ответить

Читайте также

1) Написать программу для вычисления суммы цифр пятизначного числа , введенного с клавиатура

2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры

Помогите прошу

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

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

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

Дата вводится в формате "дд.мм.гг". Записать словесно название месяца и полностью указать год. Например, для 01.02.98 вывести "1 февраля тысяча девятьсот девяносто восьмой год", для 20.05.02 – "20 мая две тысячи второй год" и т.д.



Вы находитесь на странице вопроса "Написать программу для Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.