Please help me in coding of multidimensional array

Hi,

I will like to run the following code,

A  =
    [1  2  3  4  5  6;  
    4  0  6  -1  2  4;  
    -2  4  0  -10  11  56;  
    0  -10  -25  28  45  52;  
    -8  -6  0  -15  0  28;  
    -7  -28  -45  0  -75  52;]

In the above matrix, if the diagonal term is zero then that row and column should be deleted and it gives the final matrix as

A   =  
    [1  4  6;  
    0  28  52;
    -7  0  52;]

Answer 1

[KSSV]

A  =[1  2  3  4  5  6;  
    4  0  6  -1  2  4;  
    -2  4  0  -10  11  56;  
    0  -10  -25  28  45  52;  
    -8  -6  0  -15  0  28;  
    -7  -28  -45  0  -75  52;]

d = diag(A) ;
[i,j] = find(d==0) ;

A(i,:) = [] ;A(:,i) = [] ;

Answer 2

[Roger Stafford]

   A = A([1,4,6],[1,4,6]);

Answer 3

[Andrei Bobrov]

ii = find(diag(A))
out = A(ii,ii)