Question

Помогите, пожалуйста! Паскаль Заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа. Пример: Массив А: -5 6 7 -4 -6 8 -8 Массив B: -4 -6 -8

Answer 1

// PascalABC.NET 3.3

begin
 var a:=ArrRandom(10,-10,10);
 writeln('Массив A:'); a.Println;
 var b:=a.Where(x->(x<0)and(x mod 2=0)).ToArray;
 writeln('Массив B:');  b.Println;
end.

Пример:
Массив A:
7 -4 -9 2 6 8 5 -10 8 8
Массив B:
-4 -10

Answer 2

Конечно, я могу помочь вам с написанием программы на языке программирования Pascal (Delphi), чтобы выполнить указанную задачу. Вот пример кода:

program SelectEvenNegative;
const
  N = 7; // Размер массива
var
  A, B: array[1..N] of integer;
  i, j: integer;

begin
  // Заполняем массив A случайными числами в интервале [-10, 10]
  Randomize;
  for i := 1 to N do
    A[i] := Random(21) - 10;

// Выводим массив A
  Write('Массив A: ');
  for i := 1 to N do
    Write(A[i], ' ');
  Writeln;

// Отбираем чётные отрицательные числа и помещаем их в массив B
  j := 0; // Индекс для массива B
  for i := 1 to N do
  begin
    if (A[i] < 0) and (A[i] mod 2 = 0) then
    begin
      j := j + 1;
      B[j] := A[i];
    end;
  end;

// Выводим массив B
  Write('Массив B: ');
  for i := 1 to j do
    Write(B[i], ' ');
  Writeln;
end.

Этот код создает два массива, A и B. Массив A заполняется случайными числами в интервале [-10, 10], а затем массив B заполняется только чётными отрицательными числами из массива A. В конце программы выводятся оба массива для проверки результата.