pascal - 求矩阵 A (5,8) 每一行负元素的最大绝对值，并将它们重新排列到第一列

Question

program test (input,output);
var
  a:array[1..5, 1..8] of integer;
  n,max,i,j:integer
begin
   writeln('enter massive 5*8');
   for i:=1 to 5 do
   for j:=1 to 8 do
   readln(a[i,j]);

找到矩阵 A (5,8) 每一行的负元素的最大绝对值，并将它们重新排列到第一列。不知道下一步是什么！我在这段代码中的下一步是什么？请帮帮我）

Answer 1

提示：你可以用不同的方式声明你的矩阵：

type
  TMatrixRow = array[1..8] of Iteger;
  TMatrix = array[1..5] of TMatrixRow;
var
  a: TMatrix;

然后创建根据需要重新排列行值的过程：

procedure RearrangeRow(var r: TMatrixRow);
begin
  // Your code here
end;

最后为每一行调用这个过程：

for i := 1 to 5 do
  RearrangeRow(a[i]);

请注意，您仍然能够以通常的方式访问矩阵元素，例如a[row, column]