Question

Задача на языке Pascal. Дан целочисленный массив A размера N (≤ 15). Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем (3, 6, . . .), и вывести размер полученного массива B и его содержимое. Условный оператор не использовать.

Answer 1

// PascalABC.NET 3.6.3

begin

 var n := ReadInteger;

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

 a.Println;

 var b := a?[2::3];

 Println('Длина массива В равна', B.Length);

 B.Print

end.

Answer 2

Конечно, вот пример решения данной задачи на языке Pascal без использования условных операторов:

pascalCopy code
program ArrayManipulation;

const
  N = 15;

var
  A, B: array[1..N] of Integer;
  i, sizeB: Integer;

begin
  { Ввод элементов массива A }
  for i := 1 to N do
  begin
    Write('Введите элемент A[', i, ']: ');
    ReadLn(A[i]);
  end;

  sizeB := 0; // Изначально размер массива B равен 0

  { Переписываем элементы с порядковыми номерами, кратными 3, в массив B }
  for i := 3 to N step 3 do
  begin
    sizeB := sizeB + 1;
    B[sizeB] := A[i];
  end;

  { Вывод размера массива B }
  WriteLn('Размер массива B:', sizeB);

  { Вывод содержимого массива B }
  Write('Содержимое массива B:');
  for i := 1 to sizeB do
    Write(' ', B[i]);
    
  WriteLn; // Переход на новую строку
end.

Обратите внимание, что в данном примере мы используем цикл for i := 3 to N step 3, чтобы перебирать только элементы с порядковыми номерами, кратными 3. Таким образом, условные операторы не используются напрямую для проверки кратности.