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: S = 0

FOR J = 1 TO N

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

NEXT J

IF K = 0 THEN B(I) = 0 ELSE B(I) = S / 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 M AS INTEGER, MAX 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 J = 1 TO N

MAX = A(1, J)

FOR I = 1 TO M

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

NEXT I

B(J) = MAX

NEXT J

PRINT "BIXODNAIA MASSIV B "

FOR I = 1 TO N

PRINT B(I);

NEXT I

END

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

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

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

DIM JMAX AS INTEGER, M AS INTEGER, MAX 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

MAX = A(I, 1): JMAX = 1

FOR J = 1 TO N

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

NEXT J

B(I) = JMAX

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

INPUT "M="; M

INPUT "N="; N

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

INPUT "ZAD="; ZAD

PRINT "MATRISA A"

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) = ZAD 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] - равно 1,

если значения элементов i-ой строки упорядочены

по возрастанию, в противном случае 0

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

DIM M AS INTEGER, F AS INTEGER

INPUT "M="; M

INPUT "N="; N

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

PRINT "MATRISA A"

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

F = 0

FOR J = 1 TO N - 1

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

NEXT J

IF F = 0 THEN B(I) = 1 ELSE B(I) = 0

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