Найти среднею температуру воздуха за неделю ( Паскаль) программу напишите
Найти среднею температуру воздуха за неделю ( Паскаль) программу напишите
Гость
Ответ(ы) на вопрос:
Гость var
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.
Не нашли ответ?
Похожие вопросы