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