Дан двумерный массив. В каждой строке замените знак максимального по модулю элемента на противоположный.

[Ann2807]

Здравствуйте. Помогите, пожалуйста, написать код к задаче. С процедурами, обязательно

Паскаль АВС

Дан двумерный массив. В каждой строке замените знак максимального
по модулю элемента на противоположный.

Наработки есть. Сомнения по поводу того, как реализовать поиск максимального по модулю элемента в каждой строке и как процедуры организовать

Program Zamena;
const N_max=100;M_max=100;
type TMyArray=Array[1..N_max, 1..M_max] of Integer;
var A:TMyArray;
n, m, t: Integer;
procedure Zapolnenie(v, w: integer; var X :TMyArray);
var i, j:integer;
begin
	For i:=1 to n do
		For j:=1 to m do
 X[i, j]:=random(20)-10;
 end;
 Procedure Poisk;
 var i, j, n1_max: integer;
 begin
 	for i:=1 to n do readln(a[i,j]);
 	begin
	 n1_max:=1;
	for i:=2 to n do
	          if a[i,j]<a[n1_max] then  n1_max:=i;

 for j:=1 to m do readln(b[i]);
	{ Пусть первый элемент максимальный }
	 m1_max:=1;
	for j:=2 to m do
	          if b[j]<b[m1_max] then  m1_max:=j;
	          
  Procedure Zapolnenie
  Procedure Poisk
  Procedure Vivod

[Stilet]

Находит номер элемента:

Function Poisk(n:integer;):Integer;
var i:byte;
begin Result:=Low(a);
 for i:=Low(a)+1 to High(a) do if abs(a[i,n])>abs(a[Result,n]) then Result:=i;
end;

Ну и дальше:

...
 k:=Poisk(номер строки);
 a[k]:=-a[k];
...

В цикле.
Идея понятна?

[Ann2807]

Спасибо, сдала, вот так написала.

Program Zamena;
const N_max=100;M_max=100;
type TMyArray=Array[1..N_max, 1..M_max] of Integer;
var A:TMyArray;
n, m, t: Integer;

procedure Zapolnenie(var a:TMyArray);
var i, j:byte;
result: integer;
begin
	For i:=1 to n do
	For j:=1 to m do
                a[i, j]:=random(20)-10;
                
end;
 
Procedure Poisk( var a:TMyArray);
var i,j: byte;
max1, n_max1:integer;
begin
for i:=1 to n do begin
     max1:=a[i, 1];
     n_max1:=1;
     for j:=2 to m do
              if a[i, j]>max1 then begin max1:=a[i, j]; n_max1:=j; end;
     a[i, n_max1]:= -a[i, n_max1];
     writeln('максимальный элемент в ', i, ' -й строке ', max1);
     writeln('номер максимального элемента в ', i, ' -й строке ', n_max1);
                  end;
end;

 Procedure Vivod ( var a:TMyArray);
 var i,j:byte;
 n_max1: integer;
 begin
   for i:=1 to n do
begin
		for j:=1 to m do  write(a[i,j], '  ');
		writeln;
	end;

 end;
begin
     Writeln ('введите количество строк и столбцов матрицы');
     Readln (n,m);
     Zapolnenie(a);
     Poisk(a);
     Vivod(a);
    
  
end.