Var
a: array[1..7, 1..3] of integer;
s, i, j: integer;
begin
for i := 1 to 7 do
for j := 1 to 3 do
a[i, j] := random(100);
for i := 1 to 7 do
begin
s := 0;
for j := 1 to 3 do
s := s + a[i, j];
writeln('День - ', i, ', Средняя температура = ', (s / 3):2:2, ' гр.');
end;
end.