Вмассивах 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