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

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