В двумерном массиве, состоящем из целочисленных элементов, поменять местами

[T1wka]

Будьте добры проверить программку

В двумерном массиве, состоящем из целочисленных элементов, поменять местами:
в каждом столбце наибольший по модулю и последний положительный элементы;

program lab5_2;
const
n=3; m=3;
var
mat:array [1..n, 1..m] of integer;
str, k, i, j:integer;
 
function MaxAbs(stl:integer):integer;
var i, max:integer;
begin
max:=1;
for i:=2 to n do
if abs(mat[max,stl])<abs(mat[i,stl]) then max:=i;
MaxAbs:=max;
end;
 
begin
 
writeln ('Ввод матрицы');
for i:=1 to n do
for J:=1 to m do
readln(mat[i,j]);
 
writeln('Матрица');
for i:=1 to n do begin
for J:=1 to m do begin
write(mat[i,j],' '); end;
writeln;
end;
 
for j:=1 to m do
begin
str:=MaxAbs(j);
k:=mat[str,j];
mat[str,j]:=mat[n,j];
mat[n,j]:=k;
end;
 
writeln ('После обработки');
for i:=1 to n do begin
for J:=1 to m do begin
write(mat[i,j],' '); end;
writeln;
end;
 
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[min@y™]

Будьте добры проверить программку

Программка проверена успешно.

[Stilet]

Будьте добры проверить программку

Допустим она рабочая. Что дальше?

[T1wka]

Были сомнения, огромное спасибо!

[Stilet]

Тогда рекомендую развеивать их на сайте: http://www.compileonline.com/

[Son Of Pain]

А как насчет того, что она меняет местами не с последним положительным, а просто с последним? )

[T1wka]

Сообщение от Son Of Pain

А как насчет того, что она меняет местами не с последним положительным, а просто с последним? )

Тогда вопрос, что изменить?

[Serge_Bliznykov]

изменить нужно получение позиции (индекса) последнего положительного элемента в столбце.

например, так:

const
  n=5; m=4;
var
  mat : array [1..n, 1..m] of integer;
  indexMax, IndexLastPozitive, k, i, j : integer;

function MaxAbs(stl:integer):integer;
var i, max:integer;
begin
  max:=1;
  for i:=2 to n do
     if abs(mat[max,stl])<abs(mat[i,stl]) then max:=i;
  MaxAbs:=max;
end;

function LastPozitive(stl:integer):integer;
var
  i :integer;
begin
  LastPozitive := -1;
  for i:=n downto 1 do
    if mat[i, stl]>0 then begin
       LastPozitive := i;
       Exit
    end;
end;



procedure PrintMatrix;
var i, j : integer;
begin
  for i:=1 to n do begin
    for j:=1 to m do
       write(mat[i,j]:3,' ');
    writeln;
  end;
end;

begin
  Randomize;
  writeln ('Ввод матрицы');
  for i:=1 to n do
  for J:=1 to m do
     {readln(mat[i,j]); } mat[i,j] := -10 + Random(21);

  writeln('Матрица до обработки:');
  PrintMatrix;

  for j:=1 to m do
  begin
    indexMax := MaxAbs(j);
    IndexLastPozitive := LastPozitive(j);
    if IndexLastPozitive>0 then begin {меняем только в строках,
                        где есть положительные элементы}
      k := mat[indexMax,j];
      mat[indexMax,j] := mat[IndexLastPozitive,j];
      mat[IndexLastPozitive,j] := k;
    end;
  end;

   writeln ('После обработки');
   PrintMatrix;

   readln;
end.