Напишите программу, которая вычисляет среднюю за неделю температуру воздуха. Исходные данные вводятся с клавиатуры.
| Пример входных данных | Пример выходных данных |
| Введите температуру Понедельник>>12 Вторник>>10 Среда>>16 Четверг>>18 Пятница>>17 Суббота>>16 Воскресенье>>14 |
Средняя температура за неделю: 14.71 |
Ответ
program temperatuta;
var
а: array [1..7] of integer; // Исходные данные
i: integer; // Счетчик цикла
s: integer; // Промежуточная величина
st: real; // Результат
const b: array [1..7] of string = (‘Понедельник’, ‘Вторник’, ‘Среда’, ‘Четверг’, ‘Пятница’, ‘Суббота’, ‘Воскресенье’);
begin
writeln (‘Введите температуру’);
for i:= 1 to 7 do
begin
writeln (b[i], ‘>>’);
readln (a[i])
end;
s:= 0;
for i:=1 to 7 do
s:=s+a[i];
st:=s/7;
writeln (‘Средняя температура за неделю:’, st:4:2);
end.