Написать программу на qbasic для вычисления суммы минимальных значений заданной матрицы
Написать программу на qbasic для вычисления суммы минимальных значений заданной матрицы
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы