Дан массив С (10). Сформируйте из него массивы А (5) и В (5), предварительно определив их длину. В массив А включите элементы из массива С с четными индексами, а в В - с нечетными. Выведите на экран массивы А (5), В (5) и С (10).

Const n=10; m=5;

var

i, j, k:integer;

A:array[1 ... n] of integer;

B, C:array[1 ... m] of integer;

begin

writeln ('Введите элкменты массива');

for i:=1 to n do readln (a[i]);

j:=0; k:=0;

for i:=1 to n do

if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end

else begin k:=k+1; C[k]:=A[i] end;

writeln ('Массив А');

for i:=1 to n do write (A[i],' ');

writeln;

writeln ('Массив B');

for i:=1 to j do write (B[i],' ');

writeln;

writeln ('Массив C');

for i:=1 to k do write (C[i],' ');

writeln

end.