Question

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

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -99, 99);

 a.Println;

 var k := ReadInteger('Введите число для отбора по кратности:');

 var b := a.Where(t -> (t <> 0) and (t mod k = 0)).Reverse.ToArray;

 b.Println

end.

Пример

n= 21

-32 50 45 -21 -28 7 -24 60 42 -91 -51 47 -72 82 14 7 40 51 -82 92 -85

Введите число для отбора по кратности: 3

51 -72 -51 42 60 -24 -21 45

Answer 2

Конечно! Вот пример решения задачи на языке Pascal:

pascalCopy code
program CopyMultiplesToAnotherArray;

const
  MaxArraySize = 100;

type
  IntArray = array[1..MaxArraySize] of Integer;

procedure CopyMultiples(const sourceArray: IntArray; var destArray: IntArray;
  const number: Integer; var positiveCount, negativeCount: Integer);
var
  i: Integer;
begin
  positiveCount := 0;
  negativeCount := 0;

  for i := MaxArraySize downto 1 do
  begin
    if (sourceArray[i] mod number = 0) then
    begin
      if sourceArray[i] > 0 then
      begin
        positiveCount := positiveCount + 1;
        destArray[positiveCount] := sourceArray[i];
      end
      else if sourceArray[i] < 0 then
      begin
        negativeCount := negativeCount + 1;
        destArray[MaxArraySize - negativeCount + 1] := sourceArray[i];
      end;
    end;
  end;
end;

var
  A, B: IntArray;
  sizeA, sizeB, number, positiveCount, negativeCount, i: Integer;

begin
  // Вводим размер массива A
  writeln('Введите размер массива A (не более ', MaxArraySize, '): ');
  readln(sizeA);

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

  // Вводим число, кратные которому нужно скопировать
  writeln('Введите число, кратные которому нужно скопировать: ');
  readln(number);

  // Копируем кратные элементы в массив B в обратном порядке
  CopyMultiples(A, B, number, positiveCount, negativeCount);
  sizeB := positiveCount + negativeCount;

  // Выводим результат
  writeln('Массив B с положительными и отрицательными кратными числами в обратном порядке:');
  for i := 1 to sizeB do
    writeln(B[i]);

  readln;
end.

При запуске программы вы можете ввести размер массива A и его элементы. Затем программа попросит ввести число, кратные которому нужно скопировать в массив B в обратном порядке. Результатом выполнения программы будет массив B, содержащий положительные и отрицательные кратные элементы в обратном порядке.