Работа 3.7 Упр.5 ГДЗ Семакин 10 класс (Информатика)

Задача

Упорядочить по возрастанию элементы каждой строки матрицы размером $$n \times m$$.

Подробный ответ

Чтобы упорядочить элементы каждой строки матрицы по возрастанию, достаточно для каждой строки последовательно сравнивать элементы и менять их местами, если левый элемент больше правого. В приведённой программе используется простой вариант сортировки обменами.

var a: array[1..nmax,1..nmax] of integer;
m,n,i,j,k: byte;
x: integer;
begin
  clrscr;
  randomize;
  repeat
    write(‘Количество строк до ‘,nmax,’, n=’);
    readln(n);
  until n in [1..nmax];
  repeat
    write(‘Количество столбцов до ‘,nmax,’, m=’);
    readln(m);
  until m in [1..nmax];
  writeln(‘Исходная матрица:’);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(20);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for i:=1 to n do
    for j:=1 to m-1 do
      for k:=j+1 to m do
        if a[i,j]>a[i,k] then
        begin
          x:=a[i,j];
          a[i,j]:=a[i,k];
          a[i,k]:=x;
        end;
  writeln(‘Сортировка строк:’);
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end.