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.