Question

Составить программу, используя одномерные массивы: Дан массив А (15). Сформировать новыймассив из отрицательных чисел исходного массива.​(Pascal)

Answer 1

Ответ:

var

 a, b: array[1..15] of integer;

 i, k: integer;

begin

 randomize;

 k := 1;

 WriteLn('Массив:');

 for i := 1 to 15 do

 begin

   a[i] := random(200) - 100;

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

   if a[i] < 0 then

   begin

     b[k] := a[i];

     inc(k);

   end;

 end;

 WriteLn;

 WriteLn('Новый массив:');

 for i := 1 to k - 1 do Write(b[i], ', ');

end.

Объяснение:

Answer 2

Вот пример программы на Pascal, которая создает новый массив из отрицательных чисел исходного массива:

pascalCopy code
program NegativeNumbersArray;

var
  A: array[1..15] of Integer;
  NegativeArray: array of Integer;
  i, CountNegatives: Integer;

begin
  // Заполняем исходный массив A случайными числами
  Randomize;
  for i := 1 to 15 do
    A[i] := Random(100) - 50; // Генерируем случайные числа от -50 до 49

  // Инициализируем счетчик отрицательных чисел и размер нового массива
  CountNegatives := 0;
  SetLength(NegativeArray, 15); // Максимальная длина нового массива

  // Проходим по исходному массиву и добавляем отрицательные числа в новый массив
  for i := 1 to 15 do
  begin
    if A[i] < 0 then
    begin
      CountNegatives := CountNegatives + 1;
      NegativeArray[CountNegatives] := A[i];
    end;
  end;

  // Уменьшаем размер нового массива до количества отрицательных чисел
  SetLength(NegativeArray, CountNegatives);

  // Выводим исходный и новый массивы
  writeln('Исходный массив A:');
  for i := 1 to 15 do
    write(A[i], ' ');
  writeln;
  
  writeln('Новый массив из отрицательных чисел:');
  for i := 0 to CountNegatives - 1 do
    write(NegativeArray[i], ' ');
  writeln;

  ReadLn;
end.

Эта программа создает массив A из 15 случайных целых чисел и затем формирует новый массив NegativeArray, содержащий только отрицательные числа из A. Размер NegativeArray динамически подстраивается под количество отрицательных чисел в A.