Заполнить массив Y непосредственно четными элементами массива X — QBasic(Бейсик)

disel
1
2
3
Например,
X:4 1 6 2 9 8
Y:1 3 4 6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INPUT "vvedite kol-vo elementov ", n
DIM x(n), y(n)
RANDOMIZE TIMER
PRINT "massiv x"
FOR i = 1 TO n
    x(i) = INT(RND * 20)
    PRINT x(i); " ";
NEXT
PRINT
FOR i = 1 TO n
    IF x(i) MOD 2 = 0 THEN k = k + 1: y(k) = x(i)
NEXT
PRINT "massiv y"
FOR i = 1 TO k
    PRINT y(i); " ";
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment