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

Input a(I, j)

NEXT J

NEXT I

PRINT "BXODNAIA MATRICA A "

FOR I = 1 TO M

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

MAX = A(1, 1): IMAX = 1: MIN = A(1, 1): IMIN = 1

FOR I = 1 TO M

FOR J = 1 TO N

IF A(I, J) > MAX THEN MAX = A(I, J): IMAX = I

IF A(I, J) < MIN THEN MIN = A(I, J): IMIN = I

NEXT J

NEXT I

FOR J = 1 TO N

B = A(IMAX, J): A(IMAX, J) = A(IMIN, J): A(IMIN, J) = B

NEXT J

PRINT "BIXODNAIA MATRICA A "

FOR I = 1 TO M

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

DIM K AS INTEGER, F AS INTEGER, M 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 M

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

K = 0

FOR J = 1 TO N

F = 0

FOR I = 1 TO M

IF A(I, J) <= 0 THEN F = 1

NEXT I

IF F = 0 THEN K = K + 1

NEXT J

PRINT "BIXODNAIA VELICHINA K= "; K

END

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

Построить вектор B, где B[i] - число неотрицательных элементов в i-ой строке.

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

DIM K AS INTEGER, F AS INTEGER, M AS INTEGER

INPUT "M="; M

INPUT "N="; N

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

FOR I = 1 TO M

FOR J = 1 TO N

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

Input ; " ", a(I, j)

NEXT J

PRINT

NEXT I

PRINT "BXODNAIA MATRICA A "

FOR I = 1 TO M

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

FOR I = 1 TO M

K = 0

FOR J = 1 TO N

IF A(I, J) >= 0 THEN K = K + 1

NEXT J

B(I) = K

NEXT I

PRINT "BIXODNAIA MASSIV B "

FOR I = 1 TO M

PRINT B(I);

NEXT I

END

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

Построить вектор B, где B[i] - число нулевых элементов в i-ом столбце

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

DIM K AS INTEGER, F AS INTEGER, M AS INTEGER

INPUT "M="; M

INPUT "N="; N

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

FOR I = 1 TO M

FOR J = 1 TO N

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

Input ; " ", a(I, j)

NEXT J

PRINT

NEXT I

PRINT "BXODNAIA MATRICA A "

FOR I = 1 TO M

FOR J = 1 TO N

PRINT A(I, J);

NEXT J

PRINT

NEXT I

FOR J = 1 TO N

K = 0

FOR I = 1 TO M

IF A(I, J) = 0 THEN K = K + 1

NEXT I

B(J) = K

NEXT J

PRINT "BIXODNAIA MASSIV B "

FOR I = 1 TO N

PRINT B(I);

NEXT I

END

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

Построить вектор B, где B[i] - среднее арифметическое

отрицательных элементов в i-ой строке (если отрицательных элементов нет, то B[i]=0).

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

DIM K AS INTEGER, M AS INTEGER, S AS INTEGER

INPUT "M="; M

INPUT "N="; N

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

FOR I = 1 TO M

FOR J = 1 TO N

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