Question

Написать программу на qbasic для вычисления суммы минимальных значений заданной матрицы

Answer 1

DIM X(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
    FOR J = 1 TO 5
        X(I, J) = INT(RND(1) * 10)
    NEXT J
NEXT I
FOR I = 1 TO 5
    X(I, 0) = X(I, 1)             'В скобках не буква О, а цифра 0
    FOR J = 1 TO 5
        IF X(I, 0) > X(I, J) THEN X(I, 0) = X(I, J)
        PRINT X(I, J); " ";
    NEXT J
    PRINT "MIN=";X(I, 0)
    S = S + X(I, 0)
NEXT I
PRINT "S="; S