Работа с двумерным массивом - Pascal ABC (247612)

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

Организовать программу обработки двумерного массива А(6х6) Матрица (11 ,-24,3,-43,5,1) (-14,2,-7,18,-29,10) (10,12,45,-7,-3,11) (6,11,44,41,-3,4) (19,-23,9,17,15,2) (13,7,-10,32,5,13) Задание. Из положительных элементов матрицы А сформировать новую, исключив все отрицательные элементы со сдвигом оставшихся влево по стокам . Строки новой матрицы с недостаточным количеством элементов дополнить нулями.

Решение задачи: «Работа с двумерным массивом»

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

const
  n = 5;
 
var
  a: array [1..n, 1..n] of Integer;
  i, j, k, t: Integer;
 
begin
  Randomize;
  WriteLn('A:');
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      a[i, j] := -50 + random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for i := 1 to n do 
    for j := 1 to n do 
      if a[i, j] < 0 then 
        a[i, j] := 0;
  for i := 1 to n do 
  begin
    k := 0;
    for j := 1 to n do 
    begin
      if a[i, j] > 0 then 
      begin
        Inc(k);
        t := a[i, k];
        a[i, k] := a[i, j];
        a[i, j] := t;
      end;
    end; 
  end;
  WriteLn('A''=');
  for i := 1 to n do 
  begin
    for j := 1 to n do 
      Write(a[i, j]:4); 
    WriteLn;
  end;
end.

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

Объявлены переменные: n, a, i, j, k, t типа Integer;
Инициализируется генератор случайных чисел;
Выводится шапка таблицы A:;
Заполняется массив a случайными числами от -50 до 50;
Выводится заполненный массив a;
Обнуляются все отрицательные числа в массиве a;
Находится максимальная положительная цифра в каждой строке массива a;
Выводится отсортированный массив a.