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