Обработка двумерных массивов с помощью процедур и функций.

const nc = 100;
type matr = array [1..nc, 1..nc] of integer;
 
function WithoutNegative(a: matr; n, j: integer): boolean;
var i: integer;
begin
  WithoutNegative := true;
  for i := 1 to n do
    if a[i, j] < 0 then begin
      WithoutNegative := false;
      break;
    end;
end;
 
function Sum(a: matr; n, j: integer): integer;
var i, s: integer;
begin
  s := 0;
  for i := 1 to n do s := s + a[i, j];
  Sum := s;
end;
 
procedure GenMatrix(var a: matr; n: integer);
var i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(100) - 20;
end;
 
procedure PrintMatrix(a: matr; n: integer);
var i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end;
 
procedure SumElement(a: matr; n: integer);
var j: integer;
begin
  for j := 1 to n do
    if WithoutNegative(a, n, j) then
      writeln('Сумма элементов ', j, ' столбца = ', Sum(a, n, j))
    else
      writeln('Столбец ', j, ' содержит отрицательный элемент');
end;
 
function SumUnderDiag(a: matr; n, j: integer): integer;
var
  jj, i, s: integer;
begin
  s := 0; i := n; jj := j;
  while (i >= j) and (jj <= n) do begin
    s := s + abs(a[i, jj]);
    dec(i); inc(jj);
  end;
  SumUnderDiag := s;
end;
 
function SumAboveDiag(a: matr; n, j: integer): integer;
var jj, i, s: integer;
begin
  s := 0;
  i := 1;
  jj := j;
  while (i <= j) and (jj > 0) do begin
    s := s + abs(a[i, jj]);
    inc(i); dec(jj);
  end;
  SumAboveDiag := s;
end;
 
function MinInDiag(a: matr; n: integer): integer;
var j, min: integer;
begin
  min := a[1, 1];
  for j := 1 to n do begin
    if min > SumUnderDiag(a, n, j) then min := SumUnderDiag(a, n, j);
    if min > SumAboveDiag(a, n, j) then min := SumAboveDiag(a, n, j);
  end;
  MinInDiag := min;
end;
 
var i, j, n, min: integer;
    a: matr;
begin
  randomize;
  write('N = ');
  readln(n);
  GenMatrix(a, n);
  PrintMatrix(a, n);
  SumElement(a, n);
  writeln('Минимум среди сумм модулей элементов диагоналей, параллельных побочной = ', MinInDiag(a, n));
end.

function FindMin(const a: matr, n: Integer): Integer;
var
  s: array [1..2*nc-1] of Integer;
  i, j, k, m: Integer;
begin
  FillChar(s,SizeOf(s),#0); {for k:=1 to 2*n-1 do s[k]:=0;}
  for i:=1 to n do for j:=1 to n do begin
    k:=i+j-1; s[k]:=s[k]+Abs(a[i,j]);
  end;
  m:=s[1]; for k:=2 to 2*n-1 do if m>s[k] then m:=s[k];
  FindMin:=m;
end;

function WithoutNegative(const a: matr; n, j: Integer): Boolean;
var i: Integer;
begin
  WithoutNegative:=False;
  for i:=1 to n do if a[i,j]<0 then Exit;
  WithoutNegative:=True;
end;