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）的每一行的负元素的最大绝对值，并将它们重新排列到第一列

1 个答案: