В массиве содержащем не более 20 чисел,определить числа,принадлежащие заданному интервалу и возвести их в куб,остальное заменить нулями.Подсчитать количество нулей- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DEFLNG A-Z
DIM A(20): CLS
   INPUT "Vvedite nachalo intervala : ", nach
   INPUT "Vvedite konec intervala : ", kon
   '  Заполним массив
     RANDOMIZE TIMER
    PRINT "Ishodnuj massiv"
   FOR i = 1 TO 20
     A(i) = RND * 20: PRINT A(i);
   NEXT: PRINT
   '  Заполним массив
   FOR i = 1 TO 20
     IF A(i) >= nach AND A(i) <= kon THEN
         A(i) = A(i) * A(i) * A(i)
     ELSE A(i) = 0: Nuls = Nuls + 1
     END IF
   NEXT
   '  Вывод массива
   PRINT "Konechnyj massiv"
   FOR i = 1 TO 20
     PRINT A(i);
   NEXT: PRINT
PRINT "Nulej : "; Nuls

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

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

Leave a Comment