Бейсик

[olga_miner]

Народ, кто может, помогите плиз!!!! двумерные массивы замучали вот задачка: дана матрица А(n,m). Среди столбцов заданной матрицы, содержащих только такие элементы, которые по модулю не больше 10, найти столбец с минимальным произведением элементов.
Пожалуйста!!!!! Буду очень признательна

[Sazary]

двумерные массивы замучали

Так изучите тему, и они перестанут вас мучать.

CONST MMM = 10
DIM a(100, 100) AS INTEGER
DIM i, j AS INTEGER
DIM m, n AS INTEGER
DIM b, PRtek, PR, numj AS INTEGER
CLS
RANDOMIZE TIMER
INPUT "Enter m: "; m
INPUT "Enter n: "; n
FOR i = 1 TO m
 FOR j = 1 TO n
 a(i, j) = INT(RND * 30) - 10
 PRINT USING "####"; a(i, j);
 NEXT j
PRINT
NEXT i
PRINT

PR = 100000
numj = -1

FOR j = 1 TO n
b = 1
PRtek = 1
FOR i = 1 TO m
 IF ABS(a(i, j)) > MMM THEN
  b = 0
 END IF
PRtek = PRtek * a(i, j)
NEXT i
IF b = 1 THEN
 IF PRtek < PR THEN
  PR = PRtek
  numj = j
 END IF
END IF
NEXT j

IF numj > -1 THEN
 PRINT USING "Nomer stolbca: ##"; numj
ELSE PRINT "Net takih stolbcov"
END IF
END

[olga_miner]

спасибо, добрый человек.