Question

Помогите в паскале Дан массив {X} размерностью n. Требуется: Превратить его так, чтобы в начале массива находились отрицательные элементы в порядке их прохождения в исходном массиве, а после них положительные элементы также в порядке их прохождения в исходном массиве. Ограничения: создание вспомогательного массива не допускается.

Answer 1

Вот программа на скриншоте)Я проверял все работает

Answer 2

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

Вот пример решения данной задачи на языке Pascal:

program SortArray;
const
  n = 10; // размерность массива
var
  arr: array[1..n] of integer; // исходный массив
  i, j, temp: integer;
begin
  // заполняем массив случайными числами
  for i := 1 to n do
    arr[i] := Random(21) - 10; // генерируем числа от -10 до 10

// выводим исходный массив
  writeln('Исходный массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;

// сортируем массив
  for i := 1 to n do
  begin
    for j := i + 1 to n do
    begin
      if (arr[i] >= 0) and (arr[j] < 0) then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
    end;
  end;

// выводим отсортированный массив
  writeln('Отсортированный массив:');
  for i := 1 to n do
    write(arr[i], ' ');
  writeln;
end.

В данном примере мы используем два вложенных цикла для сравнения элементов массива. Если текущий элемент `arr[i]` положительный, а следующий элемент `arr[j]` отрицательный, то мы меняем их местами. Таким образом, отрицательные элементы будут перемещены в начало массива, а положительные - в конец.

Ограничение: В данной задаче не разрешается создавать вспомогательный массив.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.