Program z;
uses crt;
var
s,x,i:real;
begin
clrsc;
x:=0
for i:=1 to 30 do begin
writeln('введите температуру');
readln(x);
sr:=sr+x;
end;
y:=sr/30;
writeln('ср темп равна',y);
readln;
end.
Объяснение:
Program z;
uses crt;
var
s,x,i:real;
begin
clrsc;
x:=0
for i:=1 to 30 do begin
writeln('введите температуру');
readln(x);
sr:=sr+x;
end;
y:=sr/30;
writeln('ср темп равна',y);
readln;
end.
Объяснение: