Input a(I)

NEXT I

INPUT "Z="; Z

K = 0

FOR I = 1 TO N

IF A(I) < Z THEN

K = K + 1

B(K) = A(I)

C(K) = I

END IF

NEXT I

IF K > 0 THEN

FOR I = 1 TO K

PRINT "B("; I; ")="; B(I); "C<"; I; ")="; C(I)

NEXT I

ELSE

PRINT "TAKIX ELEMENTOV NET";

END IF

END

Дан одномерный массив "A".

Вводится дополнительный массив "B" разрешенных значений.

Определить сколько элементов исходного массива "A" имеют неразрешенные значения

DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER, M AS INTEGER

INPUT "N="; N

INPUT "M="; M

DIM A%(N), B%(M)

PRINT "MASSIV A"

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

PRINT "MASSIV B"

PRINT "MASSIV A"

FOR I = 1 TO M

PRINT "B(="; I; ")=";

Input b(I)

NEXT I

K = 0

FOR I = 1 TO N

F = 0

FOR J = 1 TO M

IF A(I) = B(J) THEN F = 1

NEXT J

IF F = 0 THEN K = K + 1

NEXT I

PRINT "K="; K

END

Дан одномерный массив "A".

Вводится дополнительный массив "B" разрешенных значений.

Составить вектор "C"из элементов массива "A", имеющих неразрешенные значения

DIM I AS INTEGER, N AS INTEGER, M AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER

INPUT "N="; NINPUT "M="; M

DIM A%(N), B%(M), C%(N)

PRINT "MASSIV A"

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

PRINT "MASSIV B"

PRINT "MASSIV A"

FOR I = 1 TO M

PRINT "B(="; I; ")=";

Input b(I)

NEXT I

K = 0

FOR I = 1 TO N

F = 0

FOR J = 1 TO M

IF A(I) = B(J) THEN F = 1

NEXT J

IF F = 0 THEN K = K + 1: C(K) = A(I)

NEXT I

IF K = 0 THEN

PRINT "TAKIX HET"

ELSE

PRINT "MASSIV C"

FOR I = 1 TO K

PRINT "C("; I; ")="; C(I);

NEXT I

END IF

END

Дан одномерный массив "A".

Переписать элементы вектора "A"в обратном порядке

на том же месте (перевернуть массив "A" без использования дополнительного массива)

DIM I AS INTEGER, N AS INTEGER, B AS INTEGER

INPUT "N="; N

DIM A%(N)

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

FOR I = 1 TO N \ 2

B = A(I)

A(I) = A(N - I + 1)

A(N - I + 1) = B

NEXT I

FOR I = 1 TO N

PRINT "A("; I; ")="; A(I);

NEXT I

END

Дан одномерный массив "A".

Составить массив "B"из различных (не повторяющихся) элементов исходного массива "A" .

DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER

INPUT "N="; N

DIM A%(N), B%(N)

PRINT "MASSIV A"

FOR I = 1 TO N

PRINT "A(="; I; ")=";

Input a(I)

NEXT I

K = 0

FOR I = 1 TO N

F = 0

FOR J = 1 TO N

IF A(I) = A(J) AND I <> J THEN F = 1

NEXT J

IF F = 0 THEN K = K + 1: B(K) = A(I)

NEXT I

IF K = 0 THEN

PRINT "TAKIX HET"

ELSE

PRINT "MASSIV B"

FOR I = 1 TO K

PRINT "B("; I; ")="; B(I);

NEXT I

END IF

END

Дан одномерный массив "A".

Составить массив "B"из номеров различных (не повторяющихся) элементов исходного массива "A" .

DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, F AS INTEGER, J AS INTEGER

INPUT "N="; N

DIM A%(N), B%(N)

PRINT "MASSIV A"

FOR I = 1 TO N

PRINT "A(="; I; ")=";