Немножко переделать ...

[СЕргей1984]

программа сделена для этого задания "Отсортировать элементы в столбцах по возрастанию" а мне нужно "Отсортировать элементы в строках по убыванию" вот код...помогите кому не сложно! пожалуйста...

program matr;
uses Crt;
type
 mas=array[0..15,0..15] of real;
var
 mtr:mas;
 i,j,iMax,iMin,n,m,k:integer;
 ff:char;
 max,min,prom ,x,s:real;
begin  TextBackGround(9);TextColor(14);ClrScr;GotoXY(10,5);
  write('vvedite razmer matrixj (zerez probel)  ');read(n,m);
  writeln;writeln(' isxodnaj matriza  ');writeln;
  for i:=1 to n do begin
   for j:=1 to m do begin
   mtr[i,j]:=-i; {i*j*sin(0.5*i*j);}
    write(mtr[i,j]:6:2);
   end;
   writeln;
  end;
  max:=mtr[1,1];min:=mtr[1,1];
  iMax:=1;iMin:=1;
  for i:=1 to n do begin
   for j:=1 to m do begin
    if max<mtr[i,j] then begin
        max:=mtr[i,j];iMax:=i;
                         end;
    if min>mtr[i,j] then begin
        min:=mtr[i,j];iMin:=i;
                         end;
   end;
  end;
   for j:=1 to m do  begin
                     prom:=mtr[iMax,j];
                     mtr[iMax,j]:=mtr[iMin,j];
                     mtr[iMin,j]:=prom;
                     end;
    writeln;writeln('   izmenyemaj matriza  ');writeln;
   for j:= 1 to m do
   begin
                 for i:= 1 to n-1 do
                     for k:=i+1 to n do begin
                      if mtr[i, j] > mtr[k, j] then
                      begin
                      s:= mtr[i, j];
                      mtr[i, j]:= mtr[k, j];
                      mtr[k, j]:= s;
                       end;
                      end;
   end;
  writeln('Отсортированные элементы столбцов:');
     for i := 1 to n do
     begin
          for j := 1 to m do
              write(mtr[i, j]:6:2);                     {Вывод отсортированного массива}
          writeln;
          end;
   gotoXY(50,6); write('iMax = ',iMax,'   iMin = ',iMin);

  ff:= readKey;
end.

[spinogryz_ua]

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

[anton.dasuik]

anton.dasuik@gmail.com
сюда напиши я тебе код скину

[СЕргей1984]

спасибо....уже разобрался!