Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по убыванию. Вывести содержимое матрицы до обработки и после обработки

@7parc · Регистрация: 17.10.2013

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

Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по убыванию. Вывести содержимое матрицы до обработки и после обработки.Помогите плиз!Заранее благодарен!

@ermolay · 29.10.2013, 14:24

Pascal

const
  n=4;
  m=3;
var
  a: array[1..n,1..m] of integer;
  i,j,k,t: integer;
begin
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for i:=1 to n do
    for k:=2 to m do
      for j:=m downto k do
        if a[i,j-1]>a[i,j] then
        begin
          t:=a[i,j-1];
          a[i,j-1]:=a[i,j];
          a[i,j]:=t;
        end;
  writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

@7parc 0 / 0 / 0 Регистрация: 17.10.2013 Сообщений: 43
		1
	Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по убыванию. Вывести содержимое матрицы до обработки и после обработки 29.10.2013, 13:18. Показов 3413. Ответов 1 Метки нет (Все метки) Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по убыванию. Вывести содержимое матрицы до обработки и после обработки.Помогите плиз!Заранее благодарен! 0

	29.10.2013, 14:24

Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по убыванию. Вывести содержимое матрицы до обработки и после обработки

Решение