Сортировка матрицы, построчно Опции

[Tay]

Ребят помогите решить задачу
Упорядочить по возрастанию элементы каждой строки матрицы размером n на m.

Разделено из темы: Задачи -> Диагонали матрицы

[klem4]

Код

{...}
procedure bubble;
var flag:boolean;
   t:integer;
begin
  repeat
     flag:=true;
     for j:=1 to m-1 do
      if not(x[i,j]<=x[i,j+1]) then
       begin
          t:=x[i,j];
          x[i,j]:=x[i,j+1];
          x[i,j+1]:=t;
          flag:=false;
       end;
  until flag;
end;
{...}
for i:=1 to n do
    bubble;
{...}

вот_и_все


одновременно ;)

Сообщение отредактировано: klem4 - 5.04.2005 19:41