Дана квадратичная матрица .выяснить сколько положительных элементов содержат матрица и их индексы- QBasic(Бейсик)

INPUT n
FOR i = 1 TO n
    FOR j = 1 TO n
        INPUT a(i, j)
    NEXT
NEXT

FOR i = 1 TO n
    FOR j = 1 TO n
        IF a(i, j) > 0 THEN k = k + 1
    NEXT
NEXT
PRINT k

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

Leave a Comment