Question

PASCAL ABC NET
дан массив , состоящий из n элементов, элементы массива -произвольные целые числа , распечатать элементы в 2 строки . в 1 строке элементы с не четными индексами , а во 2 строке элементы с четными индексами

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

begin

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

 a.Println;

 var s := a.Partition((v, i) -> i.IsEven);

 s[0].Println;

 s[1].Println;

end.

n= 10

24 31 -29 -21 32 23 -17 34 16 -25

24 -29 32 -17 16

31 -21 23 34 -25