В массивах U7 D7 V7 содержатся значения В массивах U7 D7 V7 содержатся значения утренней дневной и вечерний температуры соответственно, за каждый день недели, сформировать массив S7 в котором будут содержаться значения средне-дневной температуры, Определить среднее значение температуры за неделю.

Паскаль, помогите!

Var

u7, d7, v7, s7: array[1 ... 7] of real;

i: integer;

s: real;

begin

writeln ('Вводите температуры за утро, день и вечер') ;

s : = 0;

for i : = 1 to 7 do

begin

write (i:1, ': ') ;

readln (u7[i], d7[i], v7[i]) ;

s7[i] : = (u7[i] + d7[i] + v7[i]) / 3;

s : = s + s7[i]

end;

s : = s / 7;

writeln;

writeln ('Средние температуры по дням недели:') ;

for i : = 1 to 7 do

write (s7[i]:0:1, ' ') ;

writeln;

writeln ('Средняя температура за неделю: ', s:0:1)

end.

Тестовое решение:

Вводите температуры за утро, день и вечер

1: 19.6 24.8 17.3

2: 16.8 22.3 18.1

3: 15.9 24.2 19.0

4: 18.5 26.8 20.3

5: 19.2 25.6 21.7

6: 19.0 23.7 20.1

7: 18.8 23.9 19.5

Средние температуры по дням недели:

20.6 19.1 19.7 21.9 22.2 20.9 20.7

Средняя температура за неделю: 20.7