Переставить столбцы матрицы по убыванию последней строки

@Imwey · Регистрация: 08.10.2015

Дана матрица A[1..n,1..m] целых чисел. Напишите программу, которая переставит столбцы матрицы А таким образом, чтобы элементы последней строки стали упорядоченными в убывающем порядке. Для упорядочивания использовать метод сортировки посредством выбора и новую матрицу. Полученную матрицу вывести на экран.

@Puporev · 03.02.2016, 21:38

Pascal

const nmax=10;
var a,b:array[1..nmax,1..nmax] of integer;
    m,n,i,j,mx,jmx:integer;
    s:set of byte;
begin
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(100);
    write(a[i,j]:3);
   end;
  writeln;
 end;
{выбор максимальных по порядку элементов последней строки}
s:=[];
for i:=1 to m do
 begin
  mx:=-maxint-1;
  for j:=1 to m do
  if not(j in s)and(a[n,j]>mx) then
   begin
    mx:=a[n,j];
    jmx:=j;
   end;
  s:=s+[jmx];
  for j:=1 to n do
  b[j,i]:=a[j,jmx];
 end;
writeln('Новая матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(b[i,j]:3);
  writeln;
 end;
end.

@Imwey 0 / 0 / 2 Регистрация: 08.10.2015 Сообщений: 74
		1
	Переставить столбцы матрицы по убыванию последней строки 03.02.2016, 20:24. Просмотров 1076. Ответов 1 Метки нет (Все метки) Дана матрица A[1..n,1..m] целых чисел. Напишите программу, которая переставит столбцы матрицы А таким образом, чтобы элементы последней строки стали упорядоченными в убывающем порядке. Для упорядочивания использовать метод сортировки посредством выбора и новую матрицу. Полученную матрицу вывести на экран. 0

Опции темы

Переставить столбцы матрицы по убыванию последней строки

Решение