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

Question

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

Answer 1

Программа на Pascal ABC:
var temp,sum,avg,i:integer;
days: array [1..7] of integer;
begin
sum:=0;
for i:=1 to 7 do
begin
readln(days[i]);
sum:=sum+days[i];
end;
avg:=sum/7;
writeln('Средняя температура за неделю = ',avg);
end.