Question

Дан массив целых чисел. Отсортировать по возрастанию только элементы массива, стоящие в ячейках с нечётными номерами. Паскаль​

Answer 1

// PascalABC.Net

// Первая программа, если необходимо выбрать нечетные элементы и их отсортировать.

begin

   var a := ArrRandom(10);

   writeln('Исходный массив: ');

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   a.Where(e -> e mod 2 <> 0).OrderBy(e -> e).Print(', ');

end.

// Вторая программа, если необходимо в исходном массиве отсортировать нечетные значения

begin

   var a := ArrRandom(10);

   writeln('Исходный массив: ');

   a.PrintLn(', ');

   writeln('Отсортированный массив нечетных элементов: ');

   var odd := a.Select((e, i) -> (i, e)).Where(e -> e[1] mod 2 <> 0).OrderBy(e -> e[1]);

   var sortedOdd := odd.Zip(odd.Select(e -> e[0]).OrderBy(e -> e), (f, s) -> (s, f[1]));

   foreach var e in sortedOdd do

       a[e[0]] := e[1];

   a.PrintLn(', ');

end.

Answer 2

Вот пример кода на языке Паскаль, который сортирует элементы массива в ячейках с нечетными индексами по возрастанию:

pascalCopy code
program SortOddIndexedElements;
const
  N = 10; // размер массива
var
  arr: array[1..N] of Integer;
  i, j, temp: Integer;
begin
  // заполняем массив случайными числами
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100);

  // сортировка элементов с нечетными индексами
  for i := 1 to N div 2 do
  begin
    for j := 1 to N div 2 do
    begin
      if (arr[j * 2 - 1] > arr[j * 2 + 1]) then
      begin
        temp := arr[j * 2 - 1];
        arr[j * 2 - 1] := arr[j * 2 + 1];
        arr[j * 2 + 1] := temp;
      end;
    end;
  end;

  // вывод отсортированного массива
  for i := 1 to N do
    WriteLn(arr[i]);

  ReadLn;
end.

В данном примере предполагается, что размер массива равен 10. Вы можете изменить значение константы N в соответствии с вашими потребностями. Массив заполняется случайными числами, и затем производится сортировка элементов с нечетными индексами по возрастанию. Результат выводится на экран.