Написать программу, которая вычисляет среднюю за неделю температуру воздуха - Pascal ABC
Формулировка задачи:
Написать программу, которая вычисляет среднюю за неделю температуру воздуха. Выходные данные должны вводиться во время работы программы
Решение задачи: «Написать программу, которая вычисляет среднюю за неделю температуру воздуха»
textual
Листинг программы
var
i: integer;
x, sum: real;
begin
sum := 0;
for i := 1 to 7 do
begin
Readln(x);
sum := sum + x;
end;
Writeln('Average: ', sum / 7);
end.
Объяснение кода листинга программы
- В первой строке объявляются три переменные: i типа integer, x и sum типа real.
- Далее, в цикле for, который выполняется 7 раз, считывается значение переменной x с помощью функции Readln и прибавляется к сумме переменной sum.
- После выполнения цикла, выводится среднее значение переменной sum, которое вычисляется как сумма переменной sum, делённая на 7, с помощью функции Writeln и оператора деления /.