циклические алгоритмы.обработка матриц

[sllh_111]

Здравствуйте, помогите пожалуйста с решением задачи:

F(10,8) найти в каждой строке матрицы минимальный элемент и поместить его на место последнего элемента строки.Матрицу напечатать в обшепринятом виде.

[p51x]

http://programmersforum.ru/forumdisplay.php?f=29

[sllh_111]

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

а она у меня минимальный элемент помещаев в начало строки((((((((((((

uses crt;
Var f:array[1..20,1..20] of integer;
    n,i,j,min,jmin,k,l,b,d:integer;
begin
clrscr;
WRITE('Vvedite razmer matricy n=');
READLN(N,d);
FOR I := 1 TO N DO
FOR J := 1 TO d DO
  Begin
    WRITE('f[', I, ',', J, '] ');
    READLN(f[I, J])
   End;
writeln('Ishodnaya matrica:');
For I := 1 To N Do
   Begin
    For J := 1 To d Do
    Write(f[I,J]:5);
    WriteLn;
   End;
for i:=1 to n do
   begin
    min:=f[i,1];jmin:=1;
    for j:=1 to d do
    if f[i,j]<min then
        begin
         min:=f[i,j];
         jmin:=j;
        end;
    if jmin> 1 then {если минимальный не первый}
      begin
        l:=f[i,jmin];{запоминаем его значение}
        for k:=jmin downto 2 do f[i,k]:=f[i,k-1];
        f[i,1]:=l;
      end;
    end;
writeln;
writeln('Rezultat:');
For I := 1 To N Do
  Begin
    For J := 1 To d Do
    Write(f[I,J]:5);
    WriteLn;
  End;
readln
end.

[Stilet]

Я бы делал так:

Var f:array[1..20,1..20] of integer;
    min:array[1..20] of integer;
    n,i,j,jmin,k,l,b,d:integer;
begin
n:=3;d:=4;
FOR I := 1 TO N DO begin  min[i]:=1;
FOR J := 1 TO d DO
  Begin
    f[I, J]:=random(100);
    WRITE('f[', I, ',', J, '] =',f[i,j]:6,' ');
    {Запомним номера минималок}
    if f[i,min[i]]>f[i,j] then
     min[i]:=j;
   End;writeln;
end;
{А теперь поменяем}
FOR i := 1 TO n DO
  Begin
    k:=f[I, d];f[I, d]:=f[i,min[i]];f[i,min[i]]:=k;
   End;
writeln;

FOR I := 1 TO N DO begin
FOR J := 1 TO d DO
  Begin
    WRITE('f[', I, ',', J, '] =',f[i,j]:6,' ');
   End;writeln;
end;

  { TODO -oUser -cConsole Main : Insert code here }
readln;
end.

[sllh_111]

Спасибо !!! все работает