Написать программу в паскале по вычислению средний температуры за неделю. Исходные данные вводятся с клавиатуры: Понедельник 12 градусов Вторник 10 Среда 16 Четверг 18 Пятница 17 Суббота 16 Воскресенье 14

var

t: array [1 ... 7] of real; / / Массив температуры за неделю

s: real;

i: integer;

begin

s: = 0;

for i: = 1 to 7 do / / Вводим температуру за каждый день

begin

writeln ('Введите температура в ', i, ' день недели') ;

readln (t[i]) ;

s: = s + t[i];

end;

writeln ('Средняя температуры за неделю: ', s / 7 : 0 : 5) ; {Выводим среднюю температуру за неделю с округлением до 5 знаков после запятой}

end.