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

Конечно, правильно бы использовать целочисленные KNТ%, KZ%, KP%, но тогда на строке не помещается оператор с меткой 90, а по правилам GW-BASIC он должен или быть однострочным, или разбиваться на несколько IF - GOTO, а переходы по GOTO несовместимы с принятой традицией структурного программирования.

Спасибо. Посмотрим,что скажет учитель.

Чего бы он не сказал, программа работает на GW-BASIC и делает то, что указано в задании. Следовательно, Ваше задание я выполнил.

list10 OPTION BASE 120 DATA 6,8,2,-1,11,0,7,12,-4,3,7,-430 DATA -9,3,-11,0,6,-2,8,13,1,4,0,1040 DIM A%(2,12)50 KN=0: KZ=0: KP=060 FOR I%=1 TO 270 FOR J%=1 TO 1280 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+1100 NEXT J%110 NEXT I%120 PRINT ">0: ";KN,"=0: ";KZ,">0: ";KP130 ENDOk run>0:  6        =0:  3        >0:  15Ok