Question

Расположить в порядке возрастания отрицательные элементы массива, кратные заданному числу.

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Const
 n=10;

 Var
 ar:array[1..n] of integer;
 i,j,c:integer;
begin
 randomize;
 readln(c);
 writeln('Array:');
 for i:=1 to n do
  begin
    ar[i]:=random(-10,10);
   write(ar[i]:4);
  end;
 for i:=1 to n-1 do
  for j:=i+1 to n do
   if (ar[i]>ar[j]) and (ar[i]<0) and (ar[j]<0) and (ar[i] mod c=0) and (ar[j] mod c=0) then    swap(ar[i],ar[j]);
 writeln;
 writeln('Final array:');
 for i:=1 to n do
 write(ar[i]:4);
end.

Пример ввода:
2
Пример вывода:
Array:
  -7   3   9  -2   7  -7   3  -6  -6  -3
Final array:
  -7   3   9  -6   7  -7   3  -6  -2  -3

Answer 2

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

1. Создать массив, который будет содержать только отрицательные элементы исходного массива, кратные заданному числу. 2. Пройтись по каждому элементу исходного массива и проверить, является ли он отрицательным и кратным заданному числу. Если условие выполняется, добавить элемент в новый массив. 3. Отсортировать новый массив с отрицательными элементами в порядке возрастания. Для этого можно использовать алгоритм сортировки, например, сортировку пузырьком или быструю сортировку. 4. Вывести отсортированный массив на экран.

Ниже приведен пример кода на языке Python, который реализует описанный алгоритм:

```python def sort_negative_elements(arr, num): negative_elements = [] for element in