Работа с двумерными массивами с использованием процедур и функций

const
  N = 2;
 
var
  A: array [0..N-1, 0..N-1] of integer;
  Sum: array [0..N - 1] of integer;
  i, j: integer;
  
begin
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
    begin
      Sum[i] := -1;
      Readln(A[i, j]);
    end;
 
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
      if A[i, j] < 0 then
      begin
        Sum[i] := -1;
        break;
      end
      else
        if Sum[i] = -1 then Sum[i] := A[i, j] else Inc(Sum[i], A[i, j]);
  
  for i := 0 to N - 1 do
    if Sum[i] <> -1 then
      Writeln('Сумма ', i + 1, '-ой строки равна ', Sum[i], '.');
end.

const
  N = 2;
 
var
  A: array [0..N - 1, 0..N - 1] of integer;
  SumMax, Sum: integer;
  i, j, i2: integer;
 
begin
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
      Readln(A[i, j]);
  
  SumMax := 0;
  Sum := 0;
  
  for i := 0 to N - 1 do
  begin
    for j := 0 to N - 1 do
      Write(A[i, j]:5);
    Writeln();
  end;
  
  for i := 0 to N - 1 do
  begin
    for i2 := i to N - 1 do
      Inc(Sum, A[i2, i2 - i]);
    if Sum > SumMax then SumMax := Sum;
    Sum := 0;
  end;
  
  for i := 1 to N - 1 do
  begin
    for i2 := i to N - 1 do
      Inc(Sum, A[i2 - i, i2]);
    if Sum > SumMax then SumMax := Sum;
    Sum := 0;
  end;
  
  Writeln(SumMax);
end.

const
  N = 2;
 
var
  A: array [0..N - 1, 0..N - 1] of integer;
  SumMax, Sum: integer;
  i, j, i2: integer;
 
begin
  for i := 0 to N - 1 do
    for j := 0 to N - 1 do
      Readln(A[i, j]);
  
  SumMax := 0;
  Sum := 0;
  
  for i := 0 to N - 1 do
  begin
    for i2 := i to N - 1 do
      Inc(Sum, A[i2, i2 - i]);
    if Sum > SumMax then SumMax := Sum;
    Sum := 0;
  end;
  
  for i := 1 to N - 1 do
  begin
    for i2 := i to N - 1 do
      Inc(Sum, A[i2 - i, i2]);
    if Sum > SumMax then SumMax := Sum;
    Sum := 0;
  end;
  
  Writeln(SumMax);
end.

uses crt;
var a:array[1..6,1..6] of integer;
    n,z,i,j,sum,min:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер матрицы от 2 до 6 n=');
readln(n);
until n in [2..6];
clrscr;
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(20);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln('Суммы в строках не содержащих отрицательных элементов');
z:=0;
for i:=1 to n do
 begin
  j:=1;
  while(j<=n)and(a[i,j]>=0)do inc(j);
  if j>n then  {нет отрицательных в строке}
   begin
    z:=1;
    sum:=0;
    for j:=1 to n do
    sum:=sum+a[i,j];
    writeln('Строка ',i,' s=',sum);
   end;
 end;
if z=0 then writeln('Таких строк нет');
writeln('Суммы на диагоналях, параллельных главной');
for z:=-n+1 to n-1 do
 begin
  sum:=0;
  for j:=1 to n do
  if (j+z>0) and (j+z<=n) then
  sum:=sum+a[j+z,j];
  writeln('диагональ ',j+z,'=',sum);
  if i+z=1 then min:=sum {1 диагональ}
  else if sum<min then min:=sum;{остальные}
 end;
writeln('Минимальная сумма=',min);
readln
end.

type
 matrix=array[1..6,1..6] of integer;
var 
 a:matrix;

const
  n = 3;
  a: array [1..n, 1..n] of integer = ((1, 1, 1), (2, 2, 3), (4, 4, 4));
 
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;
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := a[i, j] * 2;
      write(a[i, j]:4);
    end;
    writeln;
  end;
end.