VladIz_1

DIM A(1 TO 20, 1 TO 20) AS INTEGER, B(1 TO 20, 1 TO 20) AS INTEGER
DIM X(1 TO 100, 1 TO 2) AS INTEGER
DIM N AS INTEGER, I AS INTEGER, J AS INTEGER, K AS INTEGER
DIM L AS INTEGER, T AS INTEGER, F AS INTEGER
F = FREEFILE
OPEN "rezultat.txt" FOR OUTPUT AS F
RANDOMIZE TIMER
INPUT "Vvedite razmer matricy n = ", N
PRINT "Vvedite"; N * N; "elementov matricy:"
FOR I = 1 TO N
    FOR J = 1 TO N
        PRINT "A("; I; ","; J; ") =";
        INPUT "", A(I, J)
    NEXT J
NEXT I
CLS
PRINT "Ishodnaya matrica A:"
PRINT #F, "Ishodnaya matrica A:"
FOR I = 1 TO N
    FOR J = 1 TO N
        PRINT A(I, J);
        PRINT #F, A(I, J);
    NEXT J
    PRINT
    PRINT #F,
NEXT I
FOR I = 1 TO N
    FOR J = 1 TO N
        FOR K = 1 TO N
            FOR L = 1 TO N
                IF A(I, J) = A(K, L) THEN B(I, J) = B(I, J) + 1
            NEXT L
        NEXT K
    NEXT J
NEXT I
PRINT "Matrica B:"
PRINT #F, "Matrica B:"
FOR I = 1 TO N
    FOR J = 1 TO N
        PRINT B(I, J);
        PRINT #F, B(I, J);
    NEXT J
    PRINT
    PRINT #F,
NEXT I
K = 0
FOR I = 1 TO N
    FOR J = 1 TO N
        IF B(I, J) > 1 THEN
            K = K + 1
            X(K, 1) = A(I, J)
            X(K, 2) = B(I, J)
        END IF
    NEXT J
NEXT I
PRINT "Matrica X1:"
PRINT #F, "Matrica X1:"
FOR I = 1 TO K
    FOR J = 1 TO 2
        PRINT X(I, J);
        PRINT #F, X(I, J);
    NEXT J
    PRINT
    PRINT #F,
NEXT I
I = 1: L = K
DO WHILE I < K
    J = I + 1
    DO WHILE J <= L
        IF X(J, 1) = X(I, 1) THEN
            FOR T = J TO L - 1
                X(T, 1) = X(T + 1, 1)
                X(T, 2) = X(T + 1, 2)
            NEXT T
            L = L - 1
        ELSE
            J = J + 1
        END IF
    LOOP
    I = I + 1
LOOP

PRINT "Matrica X:"
PRINT #F, "Matrica X:"
FOR I = 1 TO L
    FOR J = 1 TO 2
        PRINT X(I, J);
        PRINT #F, X(I, J);
    NEXT J
    PRINT
    PRINT #F,
NEXT I
CLOSE #F