Program xa;
var
a:array[1..100,1..100] of real;
m,n,i,j,k:integer;
max:real;
begin
Writeln('Bbedute m u n'); {m kolu4ecTBo Ctpok, Hy a n kol-Bo ctoLbL/oB}
Write('m=');
readln(m);
Write('n=');
readln(n);
Writeln('Bbedute Cam MaccuB');
for i:=1 to m do
for j:=1 to n do
begin
write('a[' ,i, ',' ,j, ']=');
readln(a[i,j]);
end;
Writeln('matPuL/a do u3MeHeHUu');
for i:=1 to m do
begin
for j:=1 to n do
Write(a[i,j]:8:3);
Writeln;
end;
writeln;
for i:=1 to m do
begin
max:=a[i,1];
k:=1;
for j:=2 to n do
if a[i,j]>max then
begin
max:=a[i,j];
k:=j
end;
a[i,k]:=-1*a[i,k]
end;
Writeln('noLy4uBLLIeeC9 matPuL/a');
for i:=1 to m do
begin
for j:=1 to n do
Write(a[i,j]:8:3);
Writeln;
end;
readln;
end.