- •Задачи с решениями
- •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 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 "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
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
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
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
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; ")=";