Напишите программу, которая вычисляет среднюю за неделю температуру воздуха

Напишите программу, которая вычисляет среднюю за неделю температуру воздуха. Исходные данные вводятся с клавиатуры.

Пример входных данных Пример выходных данных
Введите температуру
Понедельник>>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.

Опубликовано: 15.11.2019 Обновлено: 15.11.2019
Поделись с друзьями

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

пятнадцать − десять =