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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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