[a,b]=size(A)
c=1;
for i=1:a
for j=1:b
if find(A(i,j)>1)
B(c)=A(i,j);c=c+1;
end
end
end
B=B';