Quartaprogram z1;
var i,s,t:integer;
begin
s:=0;
for i:=1 to 5 do
begin
write('Введите температуру в ',i,' части: ');
readln(t);
s:=s+t
end;
write('Среднесуточная температура: ',s/i)
end.
Считаем сумму температур в разных частях и делим её на количество частей
Bellini Viviana