Элементы массива на четных позициях отсортировать по возрастанию, а на нечетных – по убыванию

@Влад908 · Регистрация: 11.05.2014

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

вот задание:

Составить программу для сортировки массива размерностью элементов целого типа по следующему принципу: элементы на четных позициях по возрастанию, а на нечетных – по убыванию. Размерность массива вводится с клавиатуры. Отсортированную матрицу в отформатированном виде вывести в текстовый файл. Открыть файл для чтения и вывести его содержимое на экран.

я так понял, что работаю со всеми элементами массива, а не с каждой его строкой.

допустим, у нас есть массив:
1 2 3 4 5
6 7 8 9 10

результат сортировки по массиву должен быть таким:
9 2 7 4 5
6 1 8 3 10.
тут, формально, получается что я работаю с одномерным массивом, а потом перевожу его в двумерный

или же наоборот. нужно искать четные/нечетные в каждой строке двумерного массива и тогда там менять местами?
тогда будет:
5 2 3 4 1
10 7 8 9 6

для первого случая программа работает, но немного косячит. вот она

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
 program sааа;
 uses crt;
 var mas:array[1..100,1..100] of integer;
 i,i1,j,j1,m,n:integer;
 tmp:integer;
 Begin
 writeln('введите размерность строк');
 readln(m);
 writeln('введите количество столбцов');
 readln(n);
      writeln('введите массив');
      for i:=1 to m do begin
      for j:=1 to n do begin
      read(mas[i,j]);
 
      end;
      writeln;
      end;
     for i:=1 to m-1 do begin
     for j:=1 to n-1 do
  if odd(mas[i,j]) then   begin
    for i1:=i+1 to m do
    for j1:=j+1 to n do
      if odd(mas[i1,j1]) and (mas[i1,j1] > mas[i,j]) then
    begin
                   tmp:=mas[i,j];
                   mas[i,j]:=mas[i1,j1];
                   mas[i1,j1]:=tmp;
              end;
    if odd(mas[i1,j1]) and (mas[i1,j1] < mas[i,j]) then
    begin
                   tmp:=mas[i,j];
                   mas[i,j]:=mas[i1,j1];
                   mas[i1,j1]:=tmp;
                   end;
                  end;
                   end;
      writeln('отсортированный массив:');
      for i:=1 to m do begin
      for j:=1 to n do
      write(mas[i,j],' ');
       writeln;
      end;
 
end.

эта программа выдает на массив массив:
1 2 3 4 5
6 7 8 9 10

такой результат:
9 2 7 4 5
6 1 8 3 10. здесь 1 и 3 находятся на неверных местах. посоветуйте, пожалуйста, что делать?

@bormant · 04.07.2014, 10:12

1. Не увидел в задании ничего про двумерный массив.
2. Что такое "чётная позиция" элемента в двумерном массиве не могу себе представить.
3. odd(mas[i,j]) проверяет чётность элемента массива, а не позиции.

Добавлено через 18 минут
Например, так:

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
var
  a: array [1..100] of integer;
  i, j, t, n: integer;
  s: string;
  f: text;
begin
  Randomize;
  Write('Введите число элементов: '); ReadLn(n);
  WriteLn('A=');
  for i:=1 to n do begin
    a[i]:=Random(100); Write(a[i]:4);
  end; WriteLn;
  for i := n downto 2 do
    for j := 2 to i do
      if odd(i) xor (a[j] < a[j-1]) then begin
        t := a[j]; a[j] := a[j-1]; a[j-1] := t;
      end;
  Assign(f,'matrix.txt'); Rewrite(f);
  WriteLn(f,'A''=');
  for i:=1 to n do begin
    Write(f,a[i]:4);
    if i mod 20 = 0 then WriteLn(f);
  end; WriteLn(f);
  Close(f); Reset(f);
  while not eof(f) do begin
    ReadLn(f,s); WriteLn(s);
  end;
  Close(f);
end.

Добавлено через 15 минут
Если речь о двумерном массиве и элементы считаются построчно, малой кровью схитрить можно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  m, n, nn, i, j, t: integer;
  a: array [1..100*100] of integer;
begin
  Randomize;
  Write('Введите размерность матрицы m n: '); ReadLn(m,n);
  nn:=m*n;
  WriteLn('A=');
  for i:=1 to nn do begin
    a[i]:=Random(100); Write(a[i]:4);
    if i mod n = 0 then WriteLn;
  end;
...

То есть, хранить одномерный массив, двумерный симулировать при выводе, выводя построчно по n элементов в строке.

@Don_Omare · 04.07.2014, 15:54

bormant, хитрить для двумерного необязательно

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
program ps2;
 
uses
  crt;
 
const
  n = 5;
 
var
  i, j, max, maxi, maxj, k, m, b: integer;
  A: array[1..n, 1..n] of integer;
 
begin
  Textcolor(12);
  writeln('Ваша матрица: ');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      A[i, j] := random(99);
      write(A[i, j]:3);
    end;
    writeln;
  end;
  Max := A[1, 1];
  Textcolor(10);
  
  for k := 1 to n do
  begin
    for m := 1 to n do
    begin
      for i := 1 to n do
      begin
        for j := 1 to n do
        begin
          if (i > k) or ((i = k) and ((j = m) or (j > m))) then  
            
            if A[i, j] > max then
            begin
              max := A[i, j];
              maxi := i;
              maxj := j;
            end;
        end;
      end;  
      max := 0;
      b := A[k, m];
      A[k, m] := A[maxi, maxj];
      A[maxi, maxj] := b;
    end;
  end;
  
  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(A[i, j]:3);
    end;
    writeln;
  end;
  readln
end.

Добавлено через 1 минуту
P.S. это обычная сортировка по убыванию. При желании, автор, можете подогнать данную программу под свою задачку.

@bormant · 04.07.2014, 16:11

Don_Omare,
вот и я говорю, нет смысла делать сложно на ровном месте, когда можно сделать просто. Ваш пример кода -- наглядная тому иллюстрация

@Don_Omare · 04.07.2014, 16:20

bormant, полезнее будет немного пошевелить мозгами и подумать над сложным. Прибавится капелька логики.

p.s. Не хвалюсь, а привожу пример. Пол года назад когда мы это проходили в универе, многие не сделали это задание, некоторые решили эту задачу как Вы. Но учитель сказал, что лучшее решение мое. Ибо додуматься до

Pascal
1
2
3
4
5
6
7
8
9
  for k := 1 to n do
  begin
    for m := 1 to n do
    begin
      for i := 1 to n do
      begin
        for j := 1 to n do
        begin
          if (i > k) or ((i = k) and ((j = m) or (j > m)))

куда более труднее чем до

Pascal
1
a: array [1..100*100] of integer;

Добавлено через 3 минуты

Сообщение от bormant

схитрить

ну и оригинальность иногда тоже не помешает.

@bormant · 04.07.2014, 16:22

PS. Перевод из линейного индекса в двумерный и обратно тоже несложен. Особенно для индексов, начинающихся от 0. Пусть k - линейный индекс, тогда для построчного хранения строка i:=k div n; столбец j:=k mod n; обратно: k:=i*n+j;

46 строка вызывает сильное сомнение, раз уж хранить индексы максимума, зачем сам максимум:

Pascal
1
2
3
maxi:=1; maxj:=1;
...
if a[i,j]>a[maxi,maxj] then ...

@Don_Omare · 04.07.2014, 16:30

Сообщение от bormant

раз уж хранить индексы максимума, зачем сам максимум:

Верно подметили

@bormant · 04.07.2014, 16:32

Сообщение от Don_Omare

куда более труднее

это обычный инвариант одномерного случая:

Pascal
1
2
3
for i:=1 to n do
  for j:=1 to n do
    if j>i then ...

просто в одномерном обычно так не пишут, поскольку внутренний цикл легко сразу сделать как for j:=i+1 to n do ...
Но додуматься, да, надо...

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@bormant Модератор 7818 / 4637 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	04.07.2014, 16:11
	Don_Omare, вот и я говорю, нет смысла делать сложно на ровном месте, когда можно сделать просто. Ваш пример кода -- наглядная тому иллюстрация 0