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

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