Найти суммы элементов в столбцах матрицы. - Turbo Pascal

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

Как найти суму элементов в тех столбцах в которых нет отрицательных чисел;минимум среди сумм модулей элементов диагоналей параллельных к побочной диагонали матрицы.Матрица квадратная.

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

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

const n=5; W=6;
var
  a: array [1..n,1..n] of Integer;
  i, j: Integer;
  s: Longint;
begin
  ...
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn;
  end;
  WriteLn('Суммы:');
  for j:=1 to n do begin { для каждого столбца }
    i:=n; s:=0;
    while (i>0) and (a[i,j]>=0) do begin { поищем отрицательный }
      s:=s+a[i,j]; Dec(i);
    end;
    if i=0 then Write(s:W) else Write('':W);
  end; WriteLn;
  ...
end.

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

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

n и W - константы, которые задают размерность матрицы и количество знаков в типе данных
a - массив целых чисел размером n x n
i и j - переменные-счетчики, используемые в циклах
s - переменная для хранения суммы элементов В начале кода выводится сообщение с размерами матрицы. Затем следует цикл, который проходит по каждому элементу матрицы. Внутри этого цикла выводится значение элемента. Далее идет еще один цикл, который проходит по каждому столбцу матрицы. Внутри этого цикла инициализируется переменная s нулем и начинается поиск отрицательных элементов. Если элемент положительный, то переменная s увеличивается на его значение и инкрементируется счетчик i. Когда i становится равным нулю, это означает, что все положительные элементы были просуммированы, и выводится значение переменной s. Если i остается равным нулю, то выводится пустая строка. После завершения второго цикла выводится сообщение с суммами элементов столбцов.