ну если так лови
PHP код:
CLS
RANDOMIZE TIMER
ny = 5: nx = 12
DIM b(ny, nx), c(nx)
FOR y = 1 TO ny: FOR x = 1 TO nx
b(y, x) = FIX(RND * 100)
NEXT: NEXT
FOR x = 1 TO nx
p = 1
FOR y = 1 TO ny
IF b(y, x) <> 0 THEN p = p * b(y, x)
NEXT
c(x) = p
NEXT
FOR y = 1 TO ny
FOR x = 1 TO nx
PRINT b(y, x);
NEXT
PRINT
NEXT
FOR x = 1 TO nx
PRINT "stolbec"; x, "prozvedinie"; c(x)
NEXT