Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Задачи с решениями.doc
Скачиваний:
24
Добавлен:
24.12.2018
Размер:
110.59 Кб
Скачать

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