Question

GW BASIC. Задан двумерный массив состоящий из 24 элементов. Подсчитать кол-во отрицательных и нулевых элементов, а также сумму положительных.

Answer 1

List
10 OPTION BASE 1
20 DATA 6,8,2,-1,11,0,7,12,-4,3,7,-4
30 DATA -9,3,-11,0,6,-2,8,13,1,4,0,10
40 DIM A%(2,12)
50 KN=0: KZ=0: KP=0
60 FOR I%=1 TO 2
70 FOR J%=1 TO 12
80 READ A%(I%,J%)
90 IF A%(I%,J%)<0 THEN KN=KN+1 ELSE IF A%(I%,J%)=0 THEN KZ=KZ+1 ELSE KP=KP+1
100 NEXT J%
110 NEXT I%
120 PRINT ">0: ";KN,"=0: ";KZ,">0: ";KP
130 END
Ok
run
>0:  6        =0:  3        >0:  15
Ok

Answer 2

Для подсчета количества отрицательных и нулевых элементов, а также суммы положительных элементов в двумерном массиве из 24 элементов, можно использовать следующий код на GW-BASIC:

DIM matr(3, 7) ' Объявление двумерного массива размером 3x8

' Заполнение массива значениями
matr(0, 0) = 1
matr(0, 1) = -2
matr(0, 2) = 0
' ...
' Заполните остальные элементы массива

' Инициализация переменных
DIM negativeCount, zeroCount, positiveSum
negativeCount = 0
zeroCount = 0
positiveSum = 0

' Подсчет количества отрицательных, нулевых и суммы положительных элементов
FOR i = 0 TO 3
    FOR j = 0 TO 7
        IF matr(i, j) < 0 THEN
            negativeCount = negativeCount + 1
        ELSEIF matr(i, j) = 0 THEN
            zeroCount = zeroCount + 1
        ELSE
            positiveSum = positiveSum + matr(i, j)
        END IF
    NEXT j
NEXT i

' Вывод результатов
PRINT "Количество отрицательных элементов: "; negativeCount
PRINT "Количество нулевых элементов: "; zeroCount
PRINT "Сумма положительных элементов: "; positiveSum

В этом коде мы объявляем двумерный массив `matr` размером 3x8 и заполняем его значениями. Затем мы инициализируем переменные `negativeCount`, `zeroCount` и `positiveSum` для подсчета количества отрицательных, нулевых и суммы положительных элементов соответственно.

Затем мы используем вложенные циклы `FOR` для перебора всех элементов массива. Внутри циклов мы проверяем каждый элемент и увеличиваем соответствующую переменную в зависимости от его значения.

Наконец, мы выводим результаты подсчета с помощью команды `PRINT`.

Примечание: В предоставленном коде используется примерный размер массива 3x8. Если у вас есть конкретные значения для массива размером 3x8, замените соответствующие строки в коде на свои значения.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, пожалуйста, дайте мне знать.