Найти среднею температуру воздуха за неделю (Паскаль) программу напишите

Question

Информатика

Аделина

27 сентября, 01:39

Найти среднею температуру воздуха за неделю (Паскаль) программу напишите

+5

Ответы (1)

Знаете ответ на вопрос?

Творимир · Answer 1

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.