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; ")=";

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) = 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

2. Двумерные массивы

Дана квадратная матрица.

Произвести транспонирование (переворот) матрицы относительно ее главной диагонали

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

INPUT "N="; N

DIM A%(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

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

Input a(I, j)

NEXT J

NEXT I

PRINT "BXODNAIA MATRICA A "

FOR I = 1 TO N

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

FOR I = 1 TO N

FOR J = 1 TO N

IF I > J THEN

B = A(I, J)

A(I, J) = A(J, I)

A(J, I) = B

END IF

NEXT J

NEXT I

PRINT "BIXODNAIA MATRICA A "

FOR I = 1 TO N

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

END

Дана квадратная матрица.

Произвести переворот матрицы относительно ее побочной диагонали

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

INPUT "N="; N

DIM A%(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

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

Input a(I, j)

NEXT J

NEXT I

PRINT "BXODNAIA MATRICA A "

FOR I = 1 TO N

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

FOR I = 1 TO N

FOR J = 1 TO N

IF I + J < N + 1 THEN

B = A(I, J)

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

A(N + 1 - J, N + 1 - I) = B

END IF

NEXT J

NEXT I

PRINT "BIXODNAIA MATRICA A "

FOR I = 1 TO N

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

END

Дана квадратная матрица.

Произвести инвертирование (переворот) элементов нечетных строк

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

INPUT "N="; N

DIM A%(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

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