Сосчитать количество двузначных чисел в двумерном массиве — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "KOL-VO STOLBOV="; n
INPUT "KOL-VO STROK="; m
DIM A(m, n)
FOR I = 1 TO m
    FOR J = 1 TO n
        INPUT A(I, J)
    NEXT J
NEXT I
FOR I = 1 TO m
    FOR J = 1 TO n
        PRINT A(I, J);
    NEXT J
    PRINT
NEXT I
FOR I = 1 TO m
    FOR J = 1 TO n
        IF A(I, J) > 9 AND A(I, J) < 100 THEN K = K + 1
    NEXT
NEXT
PRINT "K="; K
END

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

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

Leave a Comment