Как в Паскале написать программу, чтобы расположить сначала положительные, а потом отрицательные элементы массива?

Введение

Паскаль - это язык программирования, который широко используется для обучения основам компьютерной науки. Он имеет простой и логичный синтаксис, делая его отличным выбором для начинающих программистов.

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

Шаги

Создайте массив, содержащий положительные и отрицательные числа.
Создайте два новых массива: один для положительных элементов, другой для отрицательных.
Переберите исходный массив и добавьте положительные элементы в массив положительных чисел, а отрицательные - в массив отрицательных чисел.
Объедините массивы положительных и отрицательных чисел в новый массив.
Выведите новый массив на экран.

Пример кода

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

program SortPositiveNegative;

var
  arr: array[1..10] of integer;
  positive: array[1..10] of integer;
  negative: array[1..10] of integer;
  sortedArray: array[1..10] of integer;
  i, j, positiveCount, negativeCount: integer;

begin
  positiveCount := 0;
  negativeCount := 0;

  for i := 1 to 10 do
  begin
    write('Enter element ', i, ': ');
    readln(arr[i]);
    
    if arr[i] >= 0 then
    begin
      positiveCount := positiveCount + 1;
      positive[positiveCount] := arr[i];
    end
    else
    begin
      negativeCount := negativeCount + 1;
      negative[negativeCount] := arr[i];
    end;
  end;

  for i := 1 to positiveCount do
  begin
    sortedArray[i] := positive[i];
  end;

  j := positiveCount + 1;
  for i := 1 to negativeCount do
  begin
    sortedArray[j] := negative[i];
    j := j + 1;
  end;

  writeln('Sorted array:');
  for i := 1 to 10 do
  begin
    write(sortedArray[i], ' ');
  end;

  readln;
end.

Объяснение

В этом примере мы создаем массив arr с 10 элементами и массивы positive и negative для хранения положительных и отрицательных чисел. Затем мы перебираем arr, добавляя положительные элементы в массив positive, а отрицательные - в массив negative.

Затем мы создаем новый массив sortedArray и используем две вложенные циклы for, чтобы скопировать положительные элементы из массива positive в sortedArray, а затем отрицательные элементы из массива negative.

Наконец, мы выводим отсортированный массив на экран.

Заключение

Теперь вы знаете, как написать программу на языке Паскаль, чтобы расположить положительные элементы массива перед отрицательными. Удачи в изучении программирования на Паскале!