Программа на паскаль Дана числовая матрица размером А (5,6). Получить массив В, элементами которого являются номера строк матрицы А, в которых элементы упорядочены по возрастанию.

Предыдущий
вопрос Следующий
вопрос

program Main;
const
N = 5;
M = 6;
type
Matrix = array [1..N, 1..M] of Integer;
ArrayB = array [1..N] of Integer;
var
A: Matrix;
B: ArrayB;
i, j, k: Integer;
isAscending: Boolean;

begin
// Заполняем матрицу A случайными числами
for i := 1 to N do
for j := 1 to M do
A[i, j] := Random(50); // генерируем случайное число от 0 до 49

// Выводим матрицу A на экран
writeln('Matrix A:');
for i := 1 to N do
begin
for j := 1 to M do
write(A[i, j]:4);
writeln;
end;

// Получаем массив B
k := 0;
for i := 1 to N do
begin
isAscending := True;
for j := 1 to M - 1 do
begin
if A[i, j] >= A[i, j + 1] then
begin
isAscending := False;
break;
end;
end;
if isAscending then
begin
k := k + 1;
B[k] := i;
end;
end;

// Выводим массив B на экран
writeln;
writeln('Array B:');
for i := 1 to k do
write(B[i]:4);
end.