Вопрос школьника по предмету Информатика
напишите программу которая вычисляет среднюю за неделю температуру воздуха.Исходные данные вводятся с клавиатуры Средняя температура за неделю 14.71
Ответ учителя по предмету Информатика
program temperature;
var day: integer;
current, sum: real;
begin
sum := 0;
for day := 1 to 7 do
begin
read(current);
sum := sum + current;
end;
writeln(sum / 7);
end.
Похожие вопросы от пользователей