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

Задание: Составить блок схему, написать текст программы

Turbo PascalUSES CRT;VAR A:array[1..10] of integer;    B:array[1..5] of integer;    C:array[1..5] of integer;    i,bx,cx:integer;BEGINCLRSCR;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.