Используя метод сортировки массива упорядочить столбцы массива по убыванию

@Влад Керусов · Регистрация: 10.02.2019

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

Дан массив целых случайных чисел (в диапазоне от -50 до 23) размерности m*n. Числа m и n вводятся пользователем. Используя метод сортировки массива упорядочить столбцы массива по убыванию.

@ZX Spectrum-128 · 14.02.2019, 06:56

Pascal

var
  w, q, i, j, n, m, k: integer;
  a: array[1..100, 1..100] of integer;
 
begin
  write('M,N? ');
  readln(m, n);
  randomize;
  writeln('Matrix: ');
  for i := 1 to m do 
  begin
    for j := 1 to n do 
    begin
      a[i, j] := -50 + random(74);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for j := 1 to n do
    for i := 1 to m - 1 do
      for k := i + 1 to m do
        if a[i, j] < a[k, j] then
        begin
          w := a[i, j];
          a[i, j] := a[k, j];
          a[k, j] := w;
        end;
  
  writeln('Sorted matrix: ');
  for i := 1 to m do 
  begin
    for j := 1 to n do 
      write(a[i, j]:4);
    writeln;
  end;
end.

@Влад Керусов 0 / 0 / 0 Регистрация: 10.02.2019 Сообщений: 4
		1
	Используя метод сортировки массива упорядочить столбцы массива по убыванию 13.02.2019, 20:22. Показов 968. Ответов 1 Метки нет (Все метки) Дан массив целых случайных чисел (в диапазоне от -50 до 23) размерности m*n. Числа m и n вводятся пользователем. Используя метод сортировки массива упорядочить столбцы массива по убыванию. 0

Опции темы