CLS
DIM A(4, 3)
PRINT "Массив"
 FOR i = 1 TO 4
  FOR j = 1 TO 3
  A(i, j) = 2 * j - 2 * i
  PRINT USING "#####"; A(i, j);
  NEXT j
  PRINT
 NEXT i
 FOR i = 1 TO 4
  FOR j = 1 TO 3
  IF A(i, j) > 0 THEN S = S + A(i, j)
  NEXT j
 NEXT i
PRINT "Сумма положительных элементов=) "; S