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

Question

Информатика

Борислава

28 сентября, 20:40

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

+4

Ответы (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.