задан массив состоящий из 10 элементов сформировать два массива по 5 элементов каждый включая в первый элементы исходного массива с чётными индексами а во второй с нечётными.сделайте в PascalABC.Net

var

 i: integer;

 a: array [1..10] of integer;

 b, c: array [1..5] of integer;

begin

 writeln('Исходный массив:');

 randomize;

 for i := 1 to 10 do

 begin

   a[i] := random(20) - 10;

   write(a[i], ', ');

   if i mod 2 = 0 then b[trunc((i - 1) / 2) + 1] := a[i] else c[trunc((i - 1) / 2) + 1] := a[i];

 end;

 writeln;

 writeln('Полученные массивы:');

 for i := 1 to 5 do  write(b[i], ' , '); writeln;

 for i := 1 to 5 do  write(c[i], ' , ');

end.

Объяснение: