Задача в QBasic

[alexeyTTT]

Задача в QBasic

Вычислить и запомнить в одномерных массивах P(m) и K(m) произведения и количества отрицательных элементов каждого столбца матрицы D(n,m) (считать, что в каждом столбце матрицы есть отрицательный элемент)

 

[MoNeTa]

CLS
INPUT "stroki"; n
INPUT "stolbci"; m
DIM D(n, m), P(m), K(m)
FOR i = 1 TO m
s = 0
z = 1
FOR x = 1 TO n
PRINT "D("; x; i; ")";
INPUT D(x, i)
IF D(x, i) < 0 THEN s = s + 1 ELSE 10
z = z * D(x, i)
10 NEXT
IF s = 0 THEN P(i) = 0 ELSE P(i) = z
K(i) = s
NEXT
PRINT "D(n,m)"
FOR i = 1 TO n
FOR x = 1 TO m
PRINT D(i, x);
NEXT
PRINT
NEXT
PRINT "P(m)"
FOR i = 1 TO m
PRINT P(i);
NEXT
PRINT
PRINT "K(m)"
FOR i = 1 TO m
PRINT K(i);
NEXT

 

[alexeyTTT]

Огромнейшее спасибо, просто жизнь спасли)