DmiIgn_1

DIM N AS INTEGER, I AS INTEGER, J AS INTEGER, C AS INTEGER, O AS INTEGER
CLS
DO
    INPUT "Input N [2..9]: ", N
LOOP WHILE N < 2 OR N > 9
DIM A(1 TO N, 1 TO N) AS INTEGER, Z(1 TO N) AS INTEGER
PRINT "Matrix A:"
RANDOMIZE TIMER
FOR J = 1 TO N
    FOR I = 1 TO N
        A(I, J) = INT(RND * 9) + 1    'sluchaynie chisla v diapazone [1..9]
        PRINT A(I, J);
    NEXT I
    PRINT
NEXT J
DO
    PRINT "Input I [1.."; N; "]: ";
    INPUT "", C
LOOP WHILE C < 1 OR C > N
O = 1
FOR I = 1 TO N
    IF A(I, C) MOD 2 <> 0 THEN O = 0
NEXT I
PRINT "Vector Z:"
FOR I = 1 TO N
    Z(I) = O
    PRINT Z(I);
NEXT I