Автор: Bronislav

Bronislav — Tue, 07 Aug 2018 12:10:33 +0000

program array_93;//pascalABC.net

begin
  var n := 10;
  var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
  
  a := a.Where((t, ind)-> ind.isEven).ToArray;
  a.Println;//1 3 5 7 9
end.

program array_93;//pascalABC.net

begin

var n := 10;

var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);

a := a.Where((t, ind)-> ind.isEven).ToArray;

a.Println;//1 3 5 7 9

end.

//еще один вариант

begin
  var n := 10;
  var a := Arr(1, 2, 3, 4, 5, 6, 7, 8, 9, 0);
  
  a := a[::2];
  a.Println;//1 3 5 7 9
end.

//еще один вариант