двумерный массив

[Ринат_1987]

Дан двумерный массив чисел. Определлить номер строки, состоящей только из элементов, кратных числу А....
Нужно расписать.
на кубейсике

[Goblin]

QBASIC не знаю.

Массив a[n][n]
цыкл i = 0 пока i<n шаг=1
  цыкл j = 0 пока j<n шаг=1
    если a[i][j]%A != 0
      j = n
    иначе
      если j+1 == n
        print(i)
  конец j
конец i

Думаю на байсик перевисти бедет не сложно.

[Sazary]

CONST n = 4
DIM a AS INTEGER
DIM i AS INTEGER
DIM j AS INTEGER
DIM mas(n, n) AS INTEGER

CLS
RANDOMIZE TIMER
FOR i = 1 TO n
  FOR j = 1 TO n
    mas(i, j) = RND * 20
    PRINT USING "####"; mas(i, j);
  NEXT j
 PRINT ""
NEXT i
PRINT
INPUT "Enter a: ", a

PRINT
FOR i = 1 TO n
  FOR j = 1 TO n
    IF mas(i, j) MOD a = 0 THEN
      IF j + 1 = n + 1 THEN
       PRINT USING "stroka ##"; i
      END IF
    ELSE j = n
    END IF
  NEXT j
NEXT i
END