- •Задачи с решениями
- •1. Одномерные массивы
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •Input b(I)
- •Input a(I)
- •Input b(I)
- •Input a(I)
- •Input a(I)
- •Input a(I)
- •2. Двумерные массивы
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input ; " ", a(I, j)
- •Input "vvedite slovo"; a
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
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
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
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
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
NEXT I
PRINT "BXODNAIA MATRICA A "
FOR I = 1 TO M
FOR J = 1 TO N
PRINT A(I, J);
NEXT J
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
NEXT I
PRINT "BXODNAIA MATRICA A "
FOR I = 1 TO M
FOR J = 1 TO N
PRINT A(I, J);
NEXT J
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; ")=";