Программная реализация

  для подсчета суммы элементов для подсчета произведения элементов
в каждой строке FOR i = 1 TO n S = 0 FOR j = 1 TO m S = S + A(i,j) NEXT j B(i) = S NEXT i FOR i = 1 TO n P = 1 FOR j = 1 TO m P = P * A(i,j) NEXT j B(i) = P NEXT i
в каждом столбце FOR j = 1 TO n S = 0 FOR i = 1 TO m S = S + A(i,j) NEXT i B(j) = S NEXT j FOR j = 1 TO n P = 1 FOR i = 1 TO m P = P * A(i,j) NEXT i B(j) = P NEXT j