Проверить, является ли сумма элементов массива числом кратным 7. Найти минимальный элемент в 5 строке- Basic(Бейсик)

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

Leave a Comment