Сортировка матрицы

@Beleaf · Регистрация: 14.04.2010

Author24 — интернет-сервис помощи студентам

Ввести матрицу A(m, n), m не равно n. Выполнить сортировку элементов каждой строки по возрастанию. Вывести исходную и преобразованную матрицу.

@Hidalgo08 · 08.06.2010, 19:09

Pascal

program sortirovka_massiva;
 
uses
  crt;
 
const
  x = 5; y = 7;
 
var
  m, n, i: byte;
  buf: integer;
  a: array [1..x, 1..y] of integer;
 
begin
  for m := 1 to x do
    for n := 1 to y do
    begin
      writeln('a[', m, ',', n, ']: ');
      readln(a[m, n]);
    end;
  writeln; writeln('Entered:');
  for m := 1 to x do
  begin
    for n := 1 to y do
      write(a[m, n], ' ');
    writeln;
  end;
  for m := 1 to x do
  begin
    for i := 1 to (y - 1) do
      for n := i + 1 to y do
      begin
        if (a[m, i] > a[m, n]) then
        begin
          buf := a[m, n];
          a[m, n] := a[m, i];
          a[m, i] := buf;
        end;
      end;
  end;
  writeln; writeln('Ready!');
  for m := 1 to x do
  begin
    for n := 1 to y do
      write(a[m, n], ' ');
    writeln;
  end;
  readkey;
end.

@Beleaf 9 / 9 / 4 Регистрация: 14.04.2010 Сообщений: 99
		1
	Сортировка матрицы 08.06.2010, 18:51. Показов 1349. Ответов 1 Метки нет (Все метки) Ввести матрицу A(m, n), m не равно n. Выполнить сортировку элементов каждой строки по возрастанию. Вывести исходную и преобразованную матрицу. 0

	08.06.2010, 19:09

Сортировка матрицы

Решение