Посчитать количество элементов, принадлежащих заданному интервалу.Если оно больше половины всех элементов, определить индекс и значение максимального, иначе минимального — Basic(Бейсик)

disel

Размер массива не более 15 элементов. Результаты распечатать в виде:
Число элементов…
Интервал..
Массив…
MAX(MIN)=
IMAX(MIN) =

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
INPUT "vvedite kolichestvo elementov", n
DIM m(n)
FOR i = 1 TO n
INPUT "vvedite element ", m(i)
NEXT
INPUT "vvedite nachalo intervala a= ", a
INPUT "vvedite konec intervala b= ", b
PRINT "chislo elementov="; n
PRINT "interval = ot "; a; "do"; b
PRINT "massiv"
FOR i = 1 TO n
PRINT m(i); " ";
NEXT
PRINT
FOR i = 1 TO n
IF (m(i) >= a) AND (m(i) <= b) THEN s = s + 1
NEXT
PRINT "kolichestvo elementov v intervale="; s
min = m(1)
nmin = 1
max = m(1)
nmax = 1
FOR i = 1 TO n
IF m(i) > max THEN max = m(i): nmax = i
IF m(i) < min THEN min = m(i): nmin = i
NEXT
IF s > n \ 2 THEN PRINT "max="; max; " ego indeks="; nmax ELSE PRINT "min="; min; " ego indeks="; nmin

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

Leave a Comment