-1
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) 每一行的负元素的最大绝对值,并将它们重新排列到第一列。不知道下一步是什么!我在这段代码中的下一步是什么?请帮帮我)

4

1 回答 1

2

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

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]

于 2018-04-22T19:10:31.180 回答