%a = [1 3 2 4];
a = randint(1,randint(1,1,[4 6]),[1 5])R = arrayfun(@(x) mod(x,2)*ones(1,a(x)),1:length(a),'un',false);RR = cell2mat(R)
a =
1 2 5 1 1 2
RR =
1 0 0 1 1 1 1 1 0 1 0 0
