В 2х мерном массиве из 5ти строк и 3-х столбцов найти количество строк, сумма элементов которых больше заданного числа — QBasic(Бейсик)

DIM a(5, 3)
INPUT "vvedite chislo  ", n
FOR i = 1 TO 5
    FOR j = 1 TO 3
        INPUT "vvedite element  ", a(i, j)
    NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO 5
    FOR j = 1 TO 3
        PRINT a(i, j); " ";
    NEXT
    PRINT
NEXT
FOR i = 1 TO 5
    FOR j = 1 TO 3
        s = s + a(i, j)
    NEXT
    IF s > n THEN m = m + 1
    s = 0
NEXT
PRINT "takih strok="; m

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

Leave a Comment