// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr('Понедельник','Вторник','Среда','Четверг','Пятница',
'Суббота','Воскресенье');
Writeln('Введите температуру');
var t:=new real[7];
for var i:=0 to 6 do begin Write(a[i],'>> '); Read(t[i]) end;
Writeln('Средняя температура за неделю: ',t.Average:0:2)
end.
Введите температуру
Понедельник>> 12
Вторник>> 10
Среда>> 16
Четверг>> 18
Пятница>> 17
Суббота>> 16
Воскресенье>> 14
Средняя температура за неделю: 14.71