oberonbyexample/arrays/Arrays.Mod

MODULE arrays;

IMPORT Out;

VAR
    tmp     : INTEGER;
    matrix  : ARRAY 3 OF ARRAY 3 OF INTEGER;
    i, v, k : INTEGER;

BEGIN
    v := 1;
    FOR i := 0 TO LEN(matrix) - 1 DO
        FOR k := 0 TO LEN(matrix[i]) - 1 DO
            matrix[i][k] := v;
            INC(v);
        END;
    END;

    FOR i := 0 TO LEN(matrix) - 1 DO
        FOR k := 0 TO LEN(matrix[i]) - 1 DO
            Out.Int(matrix[i][k], 0); Out.String(" ");
        END;
        Out.Ln;
    END;

    FOR i := 0 TO LEN(matrix) - 1 DO
        FOR k := i + 1 TO LEN(matrix[i]) - 1 DO
            tmp := matrix[i][k];
            matrix[i][k] := matrix[k][i];
            matrix[k][i] := tmp;
        END;
    END;

    Out.Ln; Out.Ln;

    FOR i := 0 TO LEN(matrix) - 1 DO
        FOR k := 0 TO LEN(matrix[i]) - 1 DO
            Out.Int(matrix[i][k], 0); Out.String(" ");
        END;
        Out.Ln;
    END;
END arrays.