Найти наименьшую из сумм элементов строк и сумму наименьших элементов столбцов матрицы - Pascal

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

Дана вещественная матрица A размеров 5*4. Найти наименьшую из сумм элементов строк матрицы и сумму наименьших элементов столбцов

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

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

const m=5; n=4; W=7; D=2;
var
  a: array [1..m,1..n] of Real;
  i, j: Integer;
  t, ms, sm: Real;
begin
  Randomize; {sm:=0;}
  WriteLn('A =');
  for i:=1 to m do begin
    t:=0;
    for j:=1 to n do begin
      a[i,j]:=100*Random; t:=t+a[i,j]; Write(' ',a[i,j]:W:D);
    end; WriteLn(' | ',t:W:D);
    if (i=1) or (ms>t) then ms:=t;
  end;
  for j:=1 to n do begin
    t:=a[1,j]; for i:=2 to m do if t>a[i,j] then t:=a[i,j]; sm:=sm+t;
  end;
  WriteLn('min из сумм строк: ',ms:W:D,', сумма min в столбцах: ',sm:W:D);
end.

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

В данном коде объявлены следующие переменные:

m, n, W, D - константы, которые задают размеры массива и диапазон значений для переменной типа Real
a - массив, который будет использоваться для хранения чисел типа Real
i, j - переменные типа Integer, которые будут использоваться для итерации по массиву
t, ms, sm - переменные типа Real, которые будут использоваться для хранения сумм элементов массива В начале кода происходит инициализация переменной Randomize, которая используется для генерации случайных чисел. Затем выводится сообщение A =, после чего начинается цикл, который заполняет массив a случайными числами. Внутри этого цикла происходит проверка на минимальное значение суммы элементов строки (если текущая строка первая или сумма текущей строки меньше предыдущей минимальной суммы). Если это условие выполняется, то значение переменной ms заменяется на текущую сумму. После завершения цикла выводится сообщение с минимальной суммой элементов строки и суммой минимальных значений в столбцах. Таким образом, данный код находит минимальную сумму элементов строк и сумму минимальных значений в столбцах матрицы.