Question

Как в Паскале выполнить сортивку четных чисел по возрастанию в полученном в ходе программы массиве?

Answer 1

Відповідь:

В Паскале можно использовать функцию Sort, которая сортирует элементы массива по возрастанию. Однако, чтобы отсортировать только четные числа, нужно написать свою функцию сортировки. Ниже приведен пример такой функции:

procedure SortEvenNumbers(var arr: array of integer);

var

 i, j: integer;

begin

 for i := Low(arr) to High(arr) - 1 do

 begin

   for j := i + 1 to High(arr) do

   begin

     if (arr[i] mod 2 = 0) and (arr[j] mod 2 = 0) and (arr[i] > arr[j]) then

     begin

       Swap(arr[i], arr[j]);

     end;

   end;

 end;

end;

Эта функция сортирует только четные числа в массиве arr по возрастанию. Она использует простую сортировку пузырьком. Чтобы вызвать эту функцию для массива myArray, нужно написать:

SortEvenNumbers(myArray);