P = {[1 4 5;2 3 8; 9 1 0];...
    [12 4 -1;1 1 1;0 8 9];...
    [1 2 3;4 5 6;7 8 9];...
    [1 1 0 4;2 3 0 1]...
};      %ruzne matice

for i=1:length(P)   %pro kazdou matici
    A=P{i};     %zpracovavana matice
    disp(['Hodnost ' num2str(i) '. matice je ' num2str(rank(A))])
    [r,s]=size(A);
    if r==s     %je matice ctvercova?
    Det = det(A)   %vypiseme jeji determinant
    else
        disp('matice neni ctvercova')
    end
end