Question

Cоздать массив, в котором отрицательные элементы исходного массива предшествуют положительным элементам исходного массива на Pascal ABC.net

Answer 1

program tikerow534;

const n = 5;

type mas = array [0..n - 1] of integer;

    temp = array of integer;

var i, k: integer;

   a: mas;

   b: temp;

begin

writeln('Cоздать массив, в котором отрицательные элементы исходного массива предшествуют положительным элементам исходного массива.');

writeln('Исходный массив:');

k := 0;

randomize;

for i := 0 to n - 1 do

 begin

 a[i] := random(201) - 150;

 write(a[i], '; ');

 if (a[i] < 0) then k := k + 1;

 end;

writeln;

writeln('Преобразованный массив:');

setlength(b, k);

k := 0;

for i := 0 to n - 1 do

 if (a[i] < 0) then

 begin

  b[k] := a[i];

  k := k + 1;

 end;

for i := 0 to k - 1 do

 write(b[i], '; ');

for i := 0 to n - 1 do

 if (a[i] >= 0) then write(a[i], '; ');

readln;

end.

Answer 2

Вот пример создания массива на Pascal ABC.NET, в котором отрицательные элементы исходного массива идут перед положительными элементами:

pascalCopy code
program SeparateNegativeAndPositive;
const
  N = 10; // Размер массива
var
  OriginalArray: array[1..N] of Integer;
  SeparatedArray: array[1..N] of Integer;
  i, negativeIndex, positiveIndex: Integer;
begin
  // Заполнение исходного массива случайными числами
  for i := 1 to N do
  begin
    OriginalArray[i] := Random(21) - 10; // Генерируем случайные числа от -10 до 10
  end;

  // Инициализация индексов для отрицательных и положительных элементов
  negativeIndex := 1;
  positiveIndex := N;

  // Разделение элементов
  for i := 1 to N do
  begin
    if OriginalArray[i] < 0 then
    begin
      SeparatedArray[negativeIndex] := OriginalArray[i];
      Inc(negativeIndex);
    end
    else
    begin
      SeparatedArray[positiveIndex] := OriginalArray[i];
      Dec(positiveIndex);
    end;
  end;

  // Вывод исходного и разделенного массивов
  writeln('Исходный массив:');
  for i := 1 to N do
    write(OriginalArray[i], ' ');

  writeln;
  writeln('Разделенный массив:');
  for i := 1 to N do
    write(SeparatedArray[i], ' ');

  readln;
end.

Этот код создает два массива: исходный массив OriginalArray и массив SeparatedArray, в котором отрицательные элементы исходного массива идут перед положительными элементами.