Создайте программу в паскале. Дан массив.Заполнить массив b элементами массива a,стоящими...

Question

Создайте программу в паскале.
Дан массив.Заполнить массив b элементами массива a,стоящими на четных местах

Answer 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-99,99); a.Println;
  var b:=new integer[n div 2];
  Range(1,n-1,2).ForEach(i->begin b[(i-1) div 2]:=a[i] end);
  b.Println
end.

Пример
n= 11
-30 -1 -29 -7 11 45 23 -90 -28 96 -38
-1 -7 45 -90 96