DEFINT A-Z
DECLARE FUNCTION SSEARCH (Q%, A%(), N%)
CLS
DIM A(20)
FOR J = 0 TO 19: A(J) = 20 - J: PRINT USING "####"; A(J); : NEXT J
PRINT
A1 = 25: K = SSEARCH(A1, A(), 20)
IF K = -1 THEN
   PRINT "Число "; A1; " в массиве не содержится"
ELSE
   PRINT "Число "; A1; " найдено, его индекс = "; K
END IF
A1 = 12: K = SSEARCH(A1, A(), 20)
IF K = -1 THEN
   PRINT "Число "; A1; " в массиве не содержится"
ELSE
   PRINT "Число "; A1; " найдено, его индекс = "; K
END IF
END

FUNCTION SSEARCH (Q%, A%(), N%)
FOR J = 0 TO N - 1
  IF Q = A(J) THEN SSEARCH = J: EXIT FUNCTION
NEXT J
SSEARCH = -1
END FUNCTION