Тема: Написать в turbo basic)

На Turbo Basic 1.1:

Basic Code:

OPTION BASE 1
DEFINT A-Z
SCREEN 0
CLS
 
n = 4        '  Stolbcov
m = n        '  Strok
RANDOMIZE TIMER
DIM A#(n, m), L(m)
 
FOR iy = 1 TO m
   FOR ix = 1 TO n
      A#(ix, iy) = RND * 10
   NEXT
NEXT
 
PRINT "A() ="
FOR iy = 1 TO m
   FOR ix = 1 TO n
      PRINT USING "##.##"; A#(ix, iy);
   NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO m
   Neub = 1
   FOR ix = 1 TO n - 1
      IF A#(ix + 1, i) < A#(ix, i) THEN Neub = 0: EXIT FOR
   NEXT
   L(i) = Neub
NEXT
 
PRINT "L() ="
FOR i = 1 TO m
   PRINT L(i);
NEXT