假如A=｛3,2,4,1｝分别表示对B矩阵的第一行前3个数加一,对B矩阵第二行的前2个数加一，对B矩阵第三行前4个数加一，对B矩阵第四行的第1个数加一
我想用Do循环来着
Do[C[[i,j]]=B[[i,j]]+1,{i,4},{j,A[[i]]}],然后mma告诉我现在i不能作为部分指定使用，｛j，A[[i]]｝没有适当的边界。那这种情况大家有什么好的解决办法吗？

A={3,2,4,1};
B=Table[a,{4},{4}];
MapIndexed[
#+If[#
2[[2]]>A[[#2[[1]]]],0,1]&,B,{2}]//MatrixForm

一个类似的思路：

A = {3, 2, 4, 1};
Amat = PadRight[Table[1, #], 4] & /@ A;
B = Table[a, {4}, {4}];
B + Amat // MatrixForm