В целочисленной последовательности есть нулевые элементы. Создать массив изз номеров этих элементов- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
cls
input n
dim a(n)
randomize timer
for i =1 to n
a(i)=int(rnd(1)*50 +1)
next i
for i= 1 to n
? a(i)
next i
for i=1 to n
if a(i)=0 then ?i;
next
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
CLS
INPUT n
DIM a(n)
RANDOMIZE TIMER
FOR i =1 TO n
 a(i)=INT(RND(1)*20 +1)
NEXT i
PRINT "Ishodniy massiv"
FOR i= 1 TO n
 PRINT a(i);
NEXT i
k=0
PRINT
FOR i=1 TO n
IF a(i)=0 THEN k=k+1
NEXT i
IF k=0 THEN
 PRINT "V ishodnom massive net nulevih elementov"
ELSE
 DIM b(k):p=0
 FOR i=1 TO n
  IF a(i)=0 THEN p=p+1: b(p)=i
 NEXT i
 PRINT "Massiv nomerov nulevih elementov"
 FOR i=1 TO k
  PRINT b(i);
 NEXT i
END IF

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

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

Leave a Comment