Организовать новый одномерный массив, содержащий суммарное (или среднее) значение каждой строки матрицы (любая на ваше усмотрение). Рассчитать и вывести в один столбец.

Ответ:

program Project1;

const

 mmax = 25;

 nmax = 10;

type

 TArr1 = array [1..mmax,1..nmax] of integer;

 TArr2 = array [1..mmax] of real;

procedure InfOutMatrix (arr: TArr1; marr,narr: integer);

// Процедура для вывода элементов двумерного массива на экран.

var

  i,j: integer;

begin

 for i:= 1 to marr do

   begin

   for j:= 1 to narr do

     Write(arr[i,j]:4);

   writeln;

   end;

end;

procedure InfInMatrix (var arr: TArr1; marr,narr: integer);

// Процедура для ручного ввода значений элементов массива.

var

  i,j: integer;

begin

for i:= 1 to marr do

   for j:= 1 to narr do

     begin

     write('Введите элемент ',i,' строки ',j,' столбца: ');

     Readln(arr[i,j]);

     end;

end;

Объяснение: