INPUT "vvedite kol-vo strok ", n
INPUT "vvedite kol-vo stolbcov ", m
DIM a(n, m), b(n)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT "vvedite element ", a(i, j)
NEXT
NEXT
PRINT "ishodnyj massiv"
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT
PRINT
NEXT
FOR i = 1 TO n
MAX = a(i, 1)
FOR j = 1 TO m
IF a(i, j) > MAX THEN MAX = a(i, j)
NEXT j
b(i) = MAX
NEXT
PRINT "massiv iz maximumov"
FOR i = 1 TO n
PRINT b(i);
NEXT