Задан массив х={Хi}, i = 1,2…,n; n-число элементов массива (n<=24). Заданы переменные a, b. Сформировать массив y={Yk} из элементов массива х больших а, но меньших или равных b — 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
24
25
26
27
28
29
30
31
32
33
34
DO
    INPUT "Input size of source array (2 to 24): N = "; N
LOOP WHILE N < 2 OR N > 24
DO
    INPUT "a = "; a
    INPUT "b = "; b
LOOP WHILE a <= b
DIM X(1 TO N)
RANDOMIZE TIMER
L = 0
FOR i = 1 TO N
    X(i) = FIX(RND * 101 - 50)
    IF X(i) > a AND X(i) <= b THEN L = L + 1
NEXT
DIM Y(1 TO L)
PRINT "Array Y has "; L; " value."
KP = 0:  KN = 0: K0 = 0
L = 1
FOR i = 1 TO N
    IF X(i) > a AND X(i) <= b THEN
        Y(L) = X(i)
        L = L + 1
    END IF
    IF X(i) = 0 THEN
        K0 = K0 + 1
    ELSEIF X(i) < 0 THEN
        KN = KN + 1
    ELSE
        KP = KP + 1
    END IF
NEXT
PRINT "Negative: "; KN
PRINT "Zero: "; K0
PRINT "Positive: "; KP

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