Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов

@Димон200 · Регистрация: 11.03.2013

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

Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В программе предусмотреть вывод исходной матрицы и полученной.
Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов

@ermolay · 14.03.2013, 10:25

Pascal

var
  a: array[1..20,1..20] of integer;
  n,m,i,j,k: byte;
  tmp: integer;
begin
  randomize;
  n:=3; m:=4;
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  for k:=2 to m do
    for j:=m downto k do
      if a[n,j-1]<a[n,j] then
        for i:=1 to n do
        begin
          tmp:=a[i,j-1];
          a[i,j-1]:=a[i,j];
          a[i,j]:=tmp;
        end;
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln;
end.

@Димон200 0 / 0 / 0 Регистрация: 11.03.2013 Сообщений: 22
		1
	Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов 14.03.2013, 09:18. Показов 1728. Ответов 1 Метки нет (Все метки) Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В программе предусмотреть вывод исходной матрицы и полученной. Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов 0

Опции темы

Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов

Решение