1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | DEFDBL A-Z CLS INPUT m INPUT n DIM A(m, n) FOR i = 1 TO m FOR j = 1 TO n A(i, j) = RND * 15 NEXT: NEXT Pr = 1 FOR j=1 TO n FOR i=1 TO m IF A(i, j) > 10 THEN Pr = Pr * A(i, j): F = 1 NEXT j NEXT i IF F = 0 THEN Pr = 0PRINT "Proizved : "; Pr |
Тестирование выполнено в программе QB64 ( Скачать )