// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=15;
var a:=ArrRandom(n,-99,99); a.Println;
Range(2,n,2).Select(t->a[t-1]).Println
end.
Пример
21 -19 -93 -18 -16 -58 -91 21 -74 85 -60 -16 68 31 72
-19 -18 -58 21 85 -16 31