Сортировка массива по убыванию методом выбора минимума

@Valerich · Регистрация: 08.10.2011

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

Доброго времени суток.
Подскажите пожалуйста.
Нужно отсортировать матрицу (четную, квадратную) по строкам, во 2 и 4 четвертях по убыванию методом выбора минимума.
Для 2 четверти написал, для 4 не могу определиться с циклом по k, j и с минимальным элементом.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
const
  raz=100;
type
  TInd = 0..Raz;
  TElem = integer;
  TMas = array[TInd, TInd] of TElem;
procedure vvod(var n: TInd; var a: Tmas);
var
  i, j: TInd;
begin
  writeln('Vvedite razmer matricy:');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do
      a[i,j]:= 10 * i + j;
end;
procedure sort(var n: TInd; var a: Tmas);
var
  i, j, jmin : TInd;
  k, min: integer;
begin
  for i := 1 to n div 2 do
    for k := 0 to n div 2-2 do
    begin min:=a[i,1];
          jmin:=1;
          for j:=2 to n div 2-k
          do
              if min>a[i,j]
              then begin
                     min:=a[i,j];
                     jmin:=j;
                   end;      
         a[i,jmin]:= a[i,n div 2-k];
         a[i,n div 2-k]:=min;
      end;
end;
procedure vivod(n:TInd; a:TMas);
var
  i, j: TInd;
begin
  for i:=1 to n do begin
    for j:=1 to n do
      write(a[i,j]:3);
      writeln;
    end;
   writeln; 
end;
 
var
  v: Tmas;
  b: TInd;
 
begin
  vvod(b,v);
  vivod(b,v);
  sort(b,v);
  vivod(b,v);
  readln;
end.

Заранее огромное спасибо.

Добавлено через 23 часа 52 минуты
Додумался сам, вот если кому нужно будет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
const
  raz=100;
type
  TInd = 0..Raz;
  TElem = integer;
  TMas = array[TInd, TInd] of TElem;
procedure vvod(var n: TInd; var a: Tmas);
var
  i, j: TInd;
begin
  writeln('Vvedite razmer matricy:');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do
      a[i,j]:= 10 * i + j;
end;
procedure sort(var n: TInd; var a: Tmas);
var
  i, j, jmin : TInd;
  k, min: integer;
begin
  for i := 1 to n div 2 do
    for k := 0 to n div 2-2 do
    begin min:=a[i,1];
          jmin:=1;
          for j:=2 to n div 2-k
          do
              if min>a[i,j]
              then begin
                     min:=a[i,j];
                     jmin:=j;
                   end;      
         a[i,jmin]:= a[i,n div 2-k];
         a[i,n div 2-k]:=min;
      end;
  for i := (n div 2)+1 to n do
    for k := (n div 2)+1 to n-1 do
    begin min:=a[i,(n div 2)+1];
          jmin:=(n div 2)+1;
          for j:= (n div 2)+1 to n
          do
              if min>a[i,j]
              then begin
                     min:=a[i,j];
                     jmin:=j;
                   end;      
         a[i,jmin]:= a[i,n];
         a[i,n]:=min;
      end;
end;
 
procedure vivod(n:TInd; a:TMas);
var
  i, j: TInd;
begin
  for i:=1 to n do begin
    for j:=1 to n do
      write(a[i,j]:3);
      writeln;
    end;
   writeln; 
end;
 
var
  v: Tmas;
  b: TInd;
 
begin
  vvod(b,v);
  vivod(b,v);
  sort(b,v);
  vivod(b,v);
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ