Имеется массив A из N произвольных чисел — A(N), из которых есть положительные, отрицательные и равные нулю. Нужно найти максимальное и минимальное числа, и напечатать те элементы массива, которые в массиве находятся между ними. Так если А=(2,4,-3,0,2,5,-2), результат: -3,0,2,5 (max=5,min=-3)- 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
INPUT "kolischestvo elemetov", N
DIM a(N)
FOR i = 1 TO N
    CLS
    PRINT "a("; i; ")=";
    INPUT a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO N
    PRINT a(i)
NEXT i
min = a(1)
mi = 1
max = a(1)
ma = 1
FOR i = 1 TO N
    IF a(i) > max130 THEN max = a(i): ma = i
    IF a(i) < min THEN min = a(i): mi = i
NEXT i
IF mi > ma THEN
    FOR i = ma TO mi
        PRINT a(i)
    NEXT i
END IF
IF mi < ma THEN
    FOR i = mi TO ma
        PRINT a(i)
    NEXT i
END IF

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

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

Leave a Comment