Untitled

A1 = [1 2 3; 4 5 6; 7 8 9];
L1 = matricePariDispari(A1);
disp(L1);

function L = matricePariDispari(A)

    [nr nc] = size(A);
    L = zeros(nr, nc);
    
    for i = 1:nr
        for j = 1:nc
            if rem(A(i,j), 2) == 0
                L(i,j) = 1;
            else
                L(i,j) = 0;
            end
        end
    end
end