- •Задачи с решениями
- •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)
NEXT I
B = A(1)
FOR I = 1 TO N
B(2 * I - 1) = A(2 * N - I + 1)
B(2 * I) = A(N - I + 1)
NEXT I
A(N) = B
FOR I = 1 TO 2 * N
PRINT "B("; I; ")="; B(I);
NEXT I
END
Дан одномерный массив.
Подсчитать количество элементов, равных заданному значению.
DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, Z AS INTEGER
INPUT "N="; N
DIM A%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
INPUT "Z="; Z
K = 0
FOR I = 1 TO N
IF A(I) = Z THEN K = K + 1
NEXT I
PRINT "K="; K;
END
Дан одномерный массив.
Составить и вывести новый массив
с номерами элементов исходного массива, равных заданному значению.
DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, Z AS INTEGER
INPUT "N="; N
DIM A%(N), B%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
INPUT "Z="; Z
K = 0
FOR I = 1 TO N
IF A(I) = Z THEN
K = K + 1
B(K) = I
END IF
NEXT I
IF K > 0 THEN
FOR I = 1 TO K
PRINT "B("; I; ")="; B(I);
NEXT I
ELSE
PRINT "TAKIX ELEMENTOV NET";
END IF
END
Дан одномерный массив.
Составить и вывести новый массив со значениями
элементов исходного массива, не равных заданному значению.
DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, Z AS INTEGER
INPUT "N="; N
DIM A%(N), B%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
INPUT "Z="; Z
K = 0
FOR I = 1 TO N
IF A(I) <> Z THEN
K = K + 1
B(K) = A(I)
END IF
NEXT I
IF K > 0 THEN
FOR I = 1 TO K
PRINT "B("; I; ")="; B(I);
NEXT I
ELSE
PRINT "TAKIX ELEMENTOV NET";
END IF
END
end.
Дан одномерный массив.
Подсчитать процент нулевых элементов.
DIM I AS INTEGER, N AS INTEGER, K AS INTEGER
INPUT "N="; N
DIM A%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
K = 0
FOR I = 1 TO N
IF A(I) = 0 THEN K = K + 1
NEXT I
PRINT "PROSENT="; K / N * 100;
END
Дан одномерный массив.
Определить какая сумма по абсолютной величине больше,
отрицательных или положительных элементов массива.
DIM I AS INTEGER, N AS INTEGER, SUMPOL AS INTEGER, SUMOTR AS INTEGER
INPUT "N="; N
DIM A%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
SUMPOL = 0: SUMONR = 0
FOR I = 1 TO N
IF A(I) > 0 THEN
SUMPOL = SUMPOL + A(I)
ELSEIF A(I) < 0 THEN
SUMOTR = SUMOTR + A(I)
END IF
NEXT I
IF ABS(SUMOTR) > SUMPOL THEN
PRINT "MODUL SUMOTR > SUMPOL"
ELSE
PRINT "SUMPOL > MODUL SUMOTR"
END IF
END
Дан одномерный массив.
Определить есть ли в нем одинаковые элементы.
DIM I AS INTEGER, N AS INTEGER, F AS INTEGER, J AS INTEGER
INPUT "N="; N
DIM A%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";
Input a(I)
NEXT I
F = 0
FOR I = 1 TO N
FOR J = 1 TO N
IF A(I) = A(J) AND I <> J THEN F = 1
NEXT J
NEXT I
IF F = 0 THEN
PRINT "NOT;"
ELSE
PRINT "YES";
END IF
END
Дан одномерный массив.
Все элементы, меньшие заданного значения, и их номера записать в новые массивы
DIM I AS INTEGER, N AS INTEGER, K AS INTEGER, Z AS INTEGER
INPUT "N="; N
DIM A%(N), B%(N), C%(N)
FOR I = 1 TO N
PRINT "A(="; I; ")=";