Сформировать двумерный массив

[min@y™]

а как теперь сделать чтобы писалось что первая строка массива B = среднее, далее вторая и т.д

Короче, я так понял, мои исходники ты не посмотрел.

[Serge_Bliznykov]

Вы так хотите?

const n = 6; m = 8;
var
  A: array[1..n, 1..m] of integer;
  B: array[1..M] of real;
  i, j: integer;
begin
  randomize;

  {заполнение массива A случайными числами от 0 до 49}
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(50);

  {заполнение массива B средними значениями}
  for i := 1 to n do
  begin
    B[i] := 0;
    for j := 1 to m do
         B[i] := B[i] + A[i, j];
    B[i] := B[i] / m;
  end;

  
  {вывод полученных массивов A и B}
  WriteLn('Массив A и массив B (среднее значение)');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]: 5);
    {в той же строке выведем B}
    Write('    B[',i,'] = ', B[i]:5:3);
    writeln;
    writeln;
  end;

  readln
end.

p.s. разумеется, среднее можно вычислять сразу при заполнении исходного массива. я вынес вычисление в отдельные циклы для наглядности

p.p.s. код формируйте правильно. У Вас ужасное оформление!

[Scorpius]

Сообщение от Fractal90

а как теперь сделать чтобы писалось что первая строка массива B = среднее, далее вторая и т.д

writeln('Среднее B[', i, ']=', B[i]:10:2);