Написать программу для Паскаль
10-11 класс
|
Найдите среднюю температуру для дней, когда температура поднималась выше 0 градусов, и определите количество таких дней. Программа получает на входе количество дней, в течение которых проводилось наблюдение, затем для каждого дня вводится температура.
var
m, k, d1: single;
i, t, d: byte;
begin
readln(t);
writeln();
for i := 1 to t do
begin
readln(k);
if (k > 0) then
begin
d1 += k;
d += 1;
end;
end;
writeln(d1 / d);
end.
Другие вопросы из категории
Получить двоичный код из вещественного числа 0.123
2.Устройство в вода информации
3.Устройства вывода информации
Дано натуральное n и действительное x. Вычислить значение суммы
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
Дата вводится в формате "дд.мм.гг". Записать словесно название месяца и полностью указать год. Например, для 01.02.98 вывести "1 февраля тысяча девятьсот девяносто восьмой год", для 20.05.02 – "20 мая две тысячи второй год" и т.д.
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу