Дан массив С(К). Переписать чётные элементы в массив Е, а нечётные в массив В. Нулевые элементы отбросить- Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "vvedite kol-vo elementov ",k
DIM c(k),e(k),b(k)
RANDOMIZE TIMER
PRINT"ishodnyj massiv"
FOR i = 1 TO k
c(i) = INT(RND * 10)
PRINT c(i);
NEXT
PRINT
FOR i=1 TO k
IF c(i) MOD 2<>0 THEN m=m+1:b(m)=c(i) ELSE IF c(i)<>0 THEN n=n+1:e(n)=c(i)
NEXT
PRINT "massiv chetnyh"
FOR i=1 TO n
PRINT e(i);
NEXT
PRINT
PRINT "massiv nechetnyh"
FOR i=1 TO m
PRINT b(i);
NEXT

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

Leave a Comment