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

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

K = 0

FOR I = 1 TO N

FOR J = 1 TO N

IF I MOD 2 = 0 AND J MOD 2 = 1 THEN

K = K + 1

S = S + A(I, J)

END IF

NEXT J

NEXT I

PRINT "BIXODNAIA VELICHINA SR= "; S / K

END

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

Поменять местами строки, содержащие наибольший

и наименьший элементы матрицы (все элементы матрицы различны)

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

DIM MAX AS INTEGER, MIN AS INTEGER, IMAX AS INTEGER, IMIN 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; ")=";