найти среднею температуру воздуха за неделю ( Паскаль) программу напишите
Answers & Comments
AviLevitvar n,k:integer; a:real; i:byte; begin for i:=1 to 7 do begin Write('Температура на ',i,'день '); read(n); k:=k+n; end; a:=k/7; writeln('Средняя температура=',a); readln; readln; end.
Answers & Comments
n,k:integer;
a:real;
i:byte;
begin
for i:=1 to 7 do
begin
Write('Температура на ',i,'день ');
read(n); k:=k+n;
end;
a:=k/7;
writeln('Средняя температура=',a);
readln;
readln;
end.