Дан массив R (M, N). Проверить, является ли сумма элементов массива числом кратным 7. Найти минимальный элемент в 5 строке — QBasic(Бейсик)

INPUT "vvedite razmery massiva m,n ", m, n
DIM r(m, n)
RANDOMIZE TIMER
FOR i = 1 TO m
    FOR j = 1 TO n
        r(i, j) = INT(RND * 20)
    NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO m
    FOR j = 1 TO n
        PRINT r(i, j);
    NEXT
    PRINT
NEXT
FOR i = 1 TO m
    FOR j = 1 TO n
        s = s + r(i, j)
    NEXT
NEXT
IF s MOD 7 = 0 THEN PRINT "summa="; s; " delitsya na 7" ELSE PRINT "summa="; s; " ne delitsya na 7"
min = r(5, 1)
FOR j = 1 TO n
    IF r(5, j) < min THEN min = r(5, j)
NEXT
PRINT "minimalnyj element 5 stroki="; min

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment