задача с матрицей

[amsterdam]

Помогите пожалуйста решить задачу,
Дана матрица состоящая из 4 строк и 5 столбцов найти минимальный по модулю элемент матрицы и поменять его местами с последним элементом B[4,5].Буду очень благодарен за помощь

[amsterdam]

вот код задачи но там есть ошибки кто может исправьте пожалуйста=)))

Program Poisk;
var x: array[1..4,1..5] of integer;
i, j, xMin, xI, xJ, c: integer;
begin
writeln('vvedite matricy (20 elementov):');
for i:=1 to 4 do
for j:=1 to 5 do
begin
write('x[',i,',',j,']= ');
readln(x[i,j]);
end;

for i:=1 to 4 do
for j:=1 to 5 do
begin
if x[i,j]<abs(xMin) then

x[xi,xj]:=abs(xMin);
xI:=abs(i);
xJ:=abs(j);

end;

x[xI,xJ]:=x[4,5];
x[4,5]:=xMin;
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(x[i,j],' ');
writeln(x[i,j]);
end;
writeln('minimal element massiva[',xI,',',xJ,']=',xMin);


end.

[Alex11223]

Что-то за сегодня уже 3-й раз подобная ошибка.
Перед циклом xmin:=x[1,1] и xi, xj аналогично.

И в самом цикле не очень понял, что вы делаете, но минимальный по модулю элемент и его индекс можно искать так:

if (abs(x[i,j]<abs(xmin)) then 
begin
   xmin:=x[i,j];
   xi:=i;
   xj:=j;
end;

И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[amsterdam]

вводил исправленый код в паскаль ,в результате ничего не считает,
пожалуста напишите готовый код,чтоб программа раблтала исправно)))

[Alex11223]

Покажите исправленный код)

[amsterdam]

вобщем я справился с этой задачей спасибо большое за помощь,очень вам благодаоен