дан массив a(n). создать массив из чётных чисел этой последовательности.Если таких чисел нет вывести собщение об этом. Решить задачу на язык...

15 мая 2025

Программирование

Условие:

дан массив a(n). создать массив из чётных чисел этой последовательности.Если таких чисел нет вывести собщение об этом. Решить задачу на языке програмирования basic 256

Решение:

Вот пример решения данной задачи на языке программирования BASIC 256:

DIM a(100)
DIM evenNumbers(100)
count = 0

PRINT "Введите элементы массива (для завершения введите 0):"
FOR i = 1 TO 100
    INPUT a(i)
    IF a(i) = 0 THEN
        EXIT FOR
    END IF
    IF a(i) MOD 2 = 0 THEN
        count = count + 1
        evenNumbers(count) = a(i)
    END IF
NEXT i

IF count = 0 THEN
    PRINT "В данной последовательности нет чётных чисел."
ELSE
    PRINT "Массив из чётных чисел:"
    FOR i = 1 TO count
        PRINT evenNumbers(i)
    NEXT i
END IF

В этом примере мы используем два массива: a для хранения исходной последовательности и evenNumbers для хранения чётных чисел. Мы также используем переменную count для отслеживания количества чётных чисел.

Сначала мы заполняем массив a с помощью оператора INPUT, прерывая ввод, когда пользователь вводит 0. Затем мы проверяем каждый элемент массива a на чётность с помощью оператора MOD. Если число чётное, мы увеличиваем count и сохраняем его в массив evenNumbers.

После завершения цикла мы проверяем значение count. Если оно равно 0, выводим сообщение о том, что в последовательности нет чётных чисел. В противном случае, мы выводим массив evenNumbers, содержащий чётные числа.