Необходимо отсортировать элементы каждой строки матрицы по возрастанию, Матрицы Опции

[and rew]

Помогите пожалуйса выполнить задание:
Дана матрица целых чисел 4*3.
Отсортировать элементы каждой строки по возрастанию

var
a:array[1..4,1..3] of integer;
i,j,x:integer;
begin
writeln('Введите матрицу 4*3');
for i:=1 to 4 do
begin
writeln;
for j:=1 to 3 do
read(a[i,j]);
end;
//Вывод сформированного массива до обработки
writeln('Матрица до обработки: ');
for i:=1 to 4 do
begin
writeln;
for j:=1 to 3 do
write(a[i,j]:4);
end;
writeln;
//Сортировка матрицы
end.

[klem4]

Пользуйся поиском ! Эта задача решалась неоднократно.


+ FAQ : Методы сортировок
+ FAQ : Массивы, матрицы, типичные задачи

[and rew]

не нашел точно такой же задачи, похожие вопросы есть и везде ссылка на FAQ, а там только сортировка в одномерном массиве

[and rew]

сам додумался, вот решение:

Код

//Обработка массива
for k:=1 to 4 do
begin
for i:=1 to 4-1 do
for j:=i+1 to 3 do
    BEGIN
    if a[k,i]>a[k,j] then
      begin
       f:=a[k,i];
       a[k,i]:=a[k,j];
       a[k,j]:=f;
      end;
    END;
end;
//Вывод результата
writeln('Отсортированная матрица: ');
for i:=1 to 4 do
begin
  writeln;
  for j:=1 to 3 do
  write(a[i,j]:4);
end;
writeln;
end.