AlMah_2

DECLARE SUB WriteElems (ASrc() AS INTEGER, ADst() AS INTEGER, AN1 AS INTEGER, AM1 AS INTEGER)
DIM N1 AS INTEGER, N2 AS INTEGER, M1 AS INTEGER, M2 AS INTEGER
DIM I AS INTEGER, J AS INTEGER
CLS
DO
    INPUT "Input N1: ", N1
LOOP WHILE N1 < 2 OR N1 > 10
DO
    INPUT "Input M1: ", M1
LOOP WHILE M1 < 2 OR M1 > 10
DO
    INPUT "Input N2: ", N2
LOOP WHILE N2 < 2 OR N2 > 10
DO
    INPUT "Input M2: ", M2
LOOP WHILE M2 < 2 OR M2 > 10
DIM E(1 TO N1, 1 TO M1) AS INTEGER, F(1 TO N1, 1 TO M1) AS INTEGER
DIM KE(1 TO N1 * M1) AS INTEGER, KF(1 TO N2 * M2) AS INTEGER
PRINT "Input matrix E:"
FOR J = 1 TO M1
    FOR I = 1 TO N1
        PRINT "E("; I; ","; J; ") = ";
        INPUT "", E(I, J)
    NEXT I
    PRINT
NEXT J
PRINT "Input matrix F:"
FOR J = 1 TO M2
    FOR I = 1 TO N2
        PRINT "F("; I; ","; J; ") = ";
        INPUT "", F(I, J)
    NEXT I
    PRINT
NEXT J
CALL WriteElems(E(), KE(), N1, M1)
CALL WriteElems(F(), KF(), N2, M2)
PRINT "Array KE:"
FOR I = 1 TO M1 * N1
    PRINT KE(I);
NEXT I
PRINT
PRINT "Array KF:"
FOR I = 1 TO M2 * N2
    PRINT KF(I);
NEXT I

SUB WriteElems (ASrc() AS INTEGER, ADst() AS INTEGER, AN1 AS INTEGER, AM1 AS INTEGER)
    DIM I AS INTEGER, J AS INTEGER, DI AS INTEGER
    DI = 1
    FOR J = 1 TO AM1
        FOR I = 1 TO AN1
            IF ASrc(I, J) MOD 3 = 0 THEN
                ADst(DI) = ASrc(I, J)
                DI = DI + 1
            END IF
        NEXT I
    NEXT J
END SUB