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

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

MAX = A(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

IF A(I, J) > MAX AND I + J > N + 1 THEN

MAX = A(I, J)

END IF

NEXT J

NEXT I

PRINT "BIXODNAIA VELICHINA MAX= "; MAX

END

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

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

program p6;

DIM I AS INTEGER, J AS INTEGER, N AS INTEGER, MIN 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

MIN = A(1, N)

FOR I = 1 TO N

FOR J = 1 TO N

IF A(I, J) < MIN AND J > I THEN

MIN = A(I, J)

END IF

NEXT J

NEXT I

PRINT "BIXODNAIA VELICHINA MIN= "; MIN

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

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

MAX = A(1, 1)

FOR I = 1 TO N

FOR J = 1 TO N

IF (A(I, J) > MAX) AND (I = 1 OR I = N OR J = 1 OR J = N OR I = J OR I + J = N + 1) THEN

MAX = A(I, J)

END IF

NEXT J

NEXT I

PRINT "BIXODNAIA VELICHINA MAX= "; MAX

END

Дана прямоугольная матрица.

Вычислить среднее арифметическое значение среди ее элементов,

расположенных в четных строках и нечетных столбцах.

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

INPUT "M="; M

INPUT "N="; N

DIM A%(M, N)

FOR I = 1 TO M

FOR J = 1 TO N

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