Clear[H,n];
n=9;
H=Table[1/(i+j+1), {i,0,n}, {j,0,n}];
invH=Inverse[H];

Clear[H,n];
n=9;
H=Table[i^j, {i,1,n+1}, {j,0,n}];
invH=Inverse[H];

n=Length[H];
h=Table[0,{n}];
Block[{},
For[i=1,i<=n,i++,
  h[[i]]=Sum[Abs[H[[i,j]]],{j,1,n}]];];
normH=Max[Table[h[[i]], {i,1,n} ]]

n=Length[H];
h=Table[0,{n}];
g=Table[0,{n}];
Block[{},
For[i=1,i<=n,i++,
   h[[i]]=Sum[Abs[H[[i,j]]], {j,1,n}] ]; 
For[i=1,i<=n,i++,
   g[[i]]=Sum[Abs[invH[[i,j]]], 								{j,1,n}] ]; ];
Norm[H]=Max[Table[h[[i]], {i,1,n} ]];
Norm[invH]=Max[Table[g[[i]], {i,1,n} ]];
Cond[H] = Norm[H]* Norm[invH];
N[Cond[H]]