Дана матрица 3 порядка Найти количество элементов равно 8- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
RANDOMIZE TIMER
n = 3
DIM a(n, n)
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = FIX(RND * 10)
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        IF a(i, j) = 8 THEN k = k + 1
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "k ="; k

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

Похожие записи/страницы:

Leave a Comment