Задание:
Найти среднею температуру воздуха за неделю (Паскаль) программу напишите
Решение:
varn,k: integer; a: real; i: byte; beginfor i: =1 to 7 dobeginWrite ('Температура на ',i,'день '); read (n); k: =k+n; end; a: =k/7; writeln ('Средняя температура=',a); readln; readln; end.
Знаете другой ответ?