Помогите пожалуйста.......

Question

Помогите пожалуйста.......

---

Comments

желательно без инета

Answer 1

Думаю так 
program temp;
var d,t:integer;
var s:real;
begin
s:=0;
for d:=1 to 7 do
begin
write(d,' день = ');
readln(t);
s:=s+t;
end;
s:=s/7;
writeln();
writeln('Средняя температура = ',s);
end.

Comments

спасибо

---

угу