求矩阵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]

这样的常规方式访问矩阵元素

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

Find the largest absolute value of negative elements for each row of the matrix A (5,8) and rearrange them to first column

pascal

freepascal

turbo-pascal