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

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

IF I MOD 2 <> 0 THEN

FOR J = 1 TO N \ 2

B = A(I, J)

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

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

NEXT J

END IF

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, P AS INTEGER, F 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

P = 1: F = 0

FOR I = 1 TO N

FOR J = 1 TO N

IF (ABS(I - J) = 1) AND (A(I, J) MOD 7 = 0) THEN

P = P * A(I, J)

F = 1

END IF

NEXT J

NEXT I

IF F = 0 THEN

PRINT "TAKIX NET"

ELSE

PRINT "BIXODNAIA VELICHINA P= "; P

END IF

END

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

Найти максимальное значение среди элементов, расположенных ниже побочной диагонали

DIM I AS INTEGER, J AS INTEGER, N AS INTEGER, MAX AS INTEGER

INPUT "N="; N

DIM A%(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

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