Question

Выполнить сортировку элементов, записанных на нечётных местах. В программе Pascal.. Срочно пожалуйста!! Даю 50

Answer 1

PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 a := a[::2].Sorted.Interleave(a[1::2]).ToArray;

 a.Println

end.

Answer 2

Хорошо, вот пример программы на Pascal для сортировки элементов, записанных на нечетных местах. Я предполагаю, что элементы на нечетных местах хранятся в массиве.

pascalCopy code
program SortOddElements;

const
  MaxArraySize = 50;

type
  IntArray = array[1..MaxArraySize] of Integer;

var
  arr: IntArray;
  size, i, j, temp: Integer;

procedure SortOddElementsInArray(var arr: IntArray; size: Integer);
var
  i, j, minIdx: Integer;
begin
  for i := 1 to size div 2 do
  begin
    minIdx := i;
    for j := i + 1 to size div 2 do
    begin
      if arr[2 * j - 1] < arr[2 * minIdx - 1] then
        minIdx := j;
    end;

    if minIdx <> i then
    begin
      // Swap elements at odd positions (2 * i - 1) and (2 * minIdx - 1)
      temp := arr[2 * i - 1];
      arr[2 * i - 1] := arr[2 * minIdx - 1];
      arr[2 * minIdx - 1] := temp;
    end;
  end;
end;

begin
  WriteLn('Введите размер массива (не более ', MaxArraySize, '): ');
  ReadLn(size);

  if (size <= 0) or (size > MaxArraySize) then
  begin
    WriteLn('Некорректный размер массива. Размер должен быть положительным и не превышать ', MaxArraySize, '.');
    Halt;
  end;

  WriteLn('Введите элементы массива на нечетных местах:');
  for i := 1 to size div 2 do
    ReadLn(arr[2 * i - 1]);

  SortOddElementsInArray(arr, size);

  WriteLn('Массив с отсортированными элементами на нечетных местах:');
  for i := 1 to size div 2 do
    WriteLn(arr[2 * i - 1]);

end.

Программа позволяет ввести размер массива и элементы, расположенные на нечетных местах. Затем она сортирует элементы, находящиеся на нечетных позициях (1, 3, 5 и т.д.) и выводит отсортированный массив. Обратите внимание, что элементы на нечетных местах хранятся в позициях 2 * i - 1, где i - номер элемента на четной позиции в массиве.