Написать программу в паскале по вычислению средний температуры за неделю.Исходные данные вводятся с клавиатуры: Понедельник 12 градусов Вторник 10 Среда
10-11 класс
|
16 Четверг 18 Пятница 17 Суббота 16 Воскресенье 14
var
t: array [1..7] of real; //Массив температуры за неделю
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 7 do //Вводим температуру за каждый день
begin
writeln('Введите температура в ', i, ' день недели');
readln(t[i]);
s:= s + t[i];
end;
writeln('Средняя температуры за неделю: ', s / 7 : 0 : 5); {Выводим среднюю температуру за неделю с округлением до 5 знаков после запятой}
end.
Другие вопросы из категории
лыжника за эти 2 недели? Помогите пожалуйста,нужно составить программу в QBasic
1. прибавь 1,
2. Умножь на 2.
Первая из них увеличивает число на экране на 1, вторая удваивает его.
Программа для Удвоителя - это последовательность команд.
Сколько есть программ, которые число 1 преобразуют в число 23?
Не нужен перебор, есть еще вроде метод решения!
Пожалуйста, подробное решение. Ответ я знаю, нужно только ПОДРОБНОЕ РЕШЕНИЕ.
Спасибо!
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Найдите среднюю температуру для дней, когда температура поднималась выше 0 градусов, и определите количество таких дней. Программа получает на входе количество дней, в течение которых проводилось наблюдение, затем для каждого дня вводится температура.
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
Ввести 3 числа,найти их сумму,произведение и среднее арифметическое.
http://primat.org/index/0-128 вот сайт что бы написать программу.