Question

Очень СРОЧНО!!!!! 50 баллов Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все чётные числа из исходного массива(в том же порядке) и вывести размер полученного массива и его содержимое. Это задача Array54 из задачника PT4. Решение нужно на PascalABC.net !!!!!

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

begin

 var N := ReadInteger('Enter "N": ');

 var A := ArrRandom(N, -99, 99);

 A.Println; //Для проверки

 var B := A.Where(p -> p mod 2 = 0).ToArray;

 B.Println;

end.

Объяснение:

Answer 2

Конечно! Вот решение задачи Array54 на PascalABC.NET:

pascalCopy code
program Array54;
const
  MAX_SIZE = 100;
var
  A, B: array [1..MAX_SIZE] of integer;
  N, i, sizeB: integer;
begin
  // Ввод размера массива N
  write('Введите размер массива N: ');
  readln(N);

  // Ввод элементов массива A
  writeln('Введите элементы массива A:');
  for i := 1 to N do
  begin
    write('A[', i, '] = ');
    readln(A[i]);
  end;

  // Формирование массива B
  sizeB := 0;
  for i := 1 to N do
  begin
    if A[i] mod 2 = 0 then
    begin
      sizeB := sizeB + 1;
      B[sizeB] := A[i];
    end;
  end;

  // Вывод размера массива B
  writeln('Размер полученного массива B:', sizeB);

  // Вывод содержимого массива B
  writeln('Содержимое массива B:');
  for i := 1 to sizeB do
  begin
    writeln('B[', i, '] = ', B[i]);
  end;
end.

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