// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Среднедневная температура равна ',
ReadSeqReal('Введите дневные температуры:',7).Average:0:1)
end.
Пример
Введите дневные температуры: 27.8 29.5 31.7 32.4 27.1 29.2 30.8
Среднедневная температура равна 29.8