ガウスの消去法ヒントな。
for(k=0;k<n-1;k++)
for(i=k+1;i<n;i++){

w[i][k]=w[i][k]/w[k][k];
m=w[i][k];
for(j=k+1;j<=n;j++)
w[i][j]=w[i][j]-m*w[k][j];
}
x[n-1]=w[n-1][n]/w[n-1][n-1];
for(k=n-2;k>=0;k--){
for(sum=0,j=k+1;j<n;j++)
sum+=w[k][j]*x[j];
x[k]=(w[k][n]-sum)/w[k][k];
}

まぁガンバレや。