Напишите программу которая вычисляет среднюю за неделю температуру воздуха.исходные данные вводятся с клавиатуры средняя температура за неделю 14.71

Описание:

введем массив из температур - w,

будем вводить значения температур с цикла и сразу находить сумму s, затем найдем среднее значение sr_t и выведем его значение, отведя для этого 5 знакомест, из которых 2 после запятой - sr_t:5:2.

program sr_temp;

var s,i:integer; sr_t:real;

     w: array [1..7] of integer;

begin

 s:=0;

  for i:=1 to 7 do

    begin

       readln(w[i]); s:=s+w[i];

    end;

 sr_t:=s/7;

 writeln('Средняя температура за неделю - ',sr_t:5:2);

end.