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

Вот пример решения данной задачи на языке программирования 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 для хранения исходной...