A=Table[Sin[i]+Cos[j],{i,0.,9},{j,0.,9}];
Dimensions[A]
TableForm[Table[{j,Norm[A[[All,j]],2]},{j,1,10}]]