Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
S,t:real;
i:integer;
Begin
S:=0;
WriteLn('Введите 7 чисел: ');
For i:= 1 to 7 do
    Begin
    Read(t);
    S:=S+t;
    End;
WriteLn('Средняя за неделю: ',S);
End.