Тема: обработка одномерных массивов задан массив а(10). сформировать из элементов массива а два массива в(5) и с(5), включая в первый, элементы исходного массива с четными индексами, а во второй с нечетными. : составить блок схему, написать текст программы

Turbo Pascal

USES CRT;
VAR A:array[1..10] of integer;
    B:array[1..5] of integer;
    C:array[1..5] of integer;
    i,bx,cx:integer;

BEGIN
CLRSCR;
Randomize;

  For i:=1 to 10 do
     begin
       A[i]:=1+random(50);
       Write(A[i],' ');
     end;

  Writeln;

  bx:=1; cx:=1;

  for i:=1 to 10 do
     if (i mod 2 = 0) then
                         begin
                            B[bx]:=A[i];
                            bx:=bx+1;
                         end
                      else
                         begin
                            C[cx]:=A[i];
                            cx:=cx+1;
                         end;

  For i:=1 to 5 do
     Write(B[i],'  ');

  Writeln;

  For i:=1 to 5 do
     Write(C[i],'  ');

READLN;
END.