var t:array[1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do begin
write('введите температуру:');
readln(t[i]);
s:=s+t[i];
end;
writeln;
writeln('средняя температура:',s/7:0:2);
end.
var t:array[1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do begin
write('введите температуру:');
readln(t[i]);
s:=s+t[i];
end;
writeln;
writeln('средняя температура:',s/7:0:2);
end.