Из последовательности чисел выбрать нечетные двузначные элементы

input "vvedite kol-vo chisel ",n
dim a(n),x(n)
for i=1 to n
input "vvedite chislo ",a(i)
next
print " ishodnye chisla"
for i=1 to n
print a(i);
next
print
for i=1 to n
if (a(i) mod 2<>0 )and(a(i)>9)and(a(i)<100)then k=k+1:x(k)=a(i)
next
print "kol-vo naydennyh chisel=";k
print "novyj massiv"
for i=1 to k
print x(i);
next

CLS
 
OPTION BASE 1
 
INPUT "M=", m
INPUT "N=", n
 
DIM x(m, n) AS STRING
 
FOR i = 1 TO m
  FOR j = 1 TO n
    PRINT "x("; i; ", "; j; ")= ";
    INPUT "", x(i, j)
  NEXT j
NEXT i
 
 
PRINT ""
 
IF m = n THEN
  PRINT "Main diagonal:"
  FOR d = 1 TO m
    PRINT x(d, d); ",";
  NEXT d
ELSE
  PRINT "Matrix is not square. Main diagonal is null";
END IF
max = x(1, 1)
FOR d = 1 TO n
IF max < x(d, d) THEN max = x(d, d)
NEXT d

CLS
DO
INPUT "vvedite kol-vo strok ", m
INPUT "vvedite kol-vo stolbcov ", n
IF m <> n THEN PRINT "matrica ne kvadratnaya povtorite vvod"
LOOP UNTIL m = n
DIM a(m, n)
FOR i = 1 TO m
FOR j = 1 TO n
print "vvedite element a(";i;",";j;")=";
input a(i, j)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO m
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
print "glavnaya diagonal"
max = a(1, 1)
FOR i = 1 TO n
print a(i,i);
IF a(i, i) > max THEN max = a(i, i): k = i
NEXT
print
PRINT "maximalnyj element glavnoj diagonali="; max
PRINT "on nahoditsya v stroke nomer "; k
PRINT "stroka nomer "; k
FOR i = 1 TO m
PRINT a(k, i);
NEXT

CLS
DO
INPUT "vvedite kol-vo strok ", m
INPUT "vvedite kol-vo stolbcov ", n
IF m <> n THEN PRINT "matrica ne kvadratnaya povtorite vvod"
LOOP UNTIL m = n
DIM a(m, n)
randomize timer
FOR i = 1 TO m
FOR j = 1 TO n
a(i,j)=int(rnd*20)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO m
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
print "glavnaya diagonal"
max = a(1, 1)
FOR i = 1 TO n
print a(i,i);
IF a(i, i) > max THEN max = a(i, i): k = i
NEXT
print
PRINT "maximalnyj element glavnoj diagonali="; max
PRINT "on nahoditsya v stroke nomer "; k
PRINT "stroka nomer "; k
FOR i = 1 TO m
PRINT a(k, i);
NEXT