Просуммировать элементы каждой строки матрицы - Turbo Pascal

Формулировка задачи:

Дана матрица R действительных чисел размером N × М. Просуммировать элементы каждой строки. Результат получить в виде вектора размером N.

Решение задачи: «Просуммировать элементы каждой строки матрицы»

Листинг программы

const n=5;m=4;
var
  a:array[1..5,1..4] of real;
  b:array[1..n] of real;
  i,j:integer;
begin
  writeln('Enter matrix [',n,'x',m,']');
  for i:=1 to n do begin
    write(i,'-string:');
    for j:=1 to m do begin
      read(a[i,j]);
      b[i]:=b[i]+a[i,j];
    end;
  end;
  writeln;
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:6:2);
    writeln('|',b[i]:6:2);
  end;
end.

Объяснение кода листинга программы

Этот код на Turbo Pascal запрашивает у пользователя ввод матрицы размером n x m. Затем он проходит по каждой строке матрицы и суммирует элементы этой строки, сохраняя результаты в массиве b. Затем код выводит каждую строку матрицы и её сумму на экран. Вот как это работает:

const n=5;m=4; — задаются размеры матрицы
var a:array[1..5,1..4] of real; b:array[1..n] of real; i,j:integer; — создается массив a и инициализируется значениями real — создается массив b и инициализируется значениями real — переменные i и j инициализируются значениями integer
writeln('Enter matrix [',n,'x',m,']'); — выводится сообщение для ввода матрицы
for i:=1 to n do begin write(i,'-string:'); — выводится сообщение для ввода i-го элемента строки for j:=1 to m do begin read(a[i,j]); — считывается значение i-го элемента строки b[i]:=b[i]+a[i,j]; — сумма элемента i и элемента j сохраняется в b[i] end; end;
writeln; — выводится символ новой строки
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:6:2); — выводятся значения элементов строки a с разделителем - writeln('|',b[i]:6:2); — выводится значение элемента i из массива b с разделителем | end;
end. — код завершается