Дан одномерный массив С1,С2,K,Сn. Вычислить среднее арифметическое тех положительных элементов массива, которые делятся на 4 без остатка. Каждый третий элемент массива умножить на найденное значение среднего. Затем найти в массиве минимальный элемент с нечетным номером и, если его значение принадлежит интервалу [A,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
35
36
37
38
39
40
41
42
43
44
REM
CLS
INPUT "Число элементов массива"; n
DIM c(1 TO n)
s = 0
l = 0
FOR i = 1 TO n
INPUT "Значение элемента"; c(i)
IF c(i) > 0 AND c(i) MOD 4 = 0 THEN
s = s + c(i)
l = l + 1
END IF
NEXT i
IF l = 0 THEN
PRINT "Нет ни одного подходящего элемента"
END
ELSE
s = s / l
PRINT "Среднее арифметичекое", s
END IF
FOR i = 1 TO n
IF i MOD 3 = 0 THEN
c(i) = c(i) * s
PRINT "Элемент номер "; i; "умножим на"; s; "Получим", c(i)
END IF
NEXT i
minc = c(1)
l = 1
FOR i = 3 TO n
IF i \ 2 = 1 AND minc > c(i) THEN
minc = c(i)
l = i
END IF
NEXT i
INPUT "Граница A"; a
INPUT "Граница B"; b
IF (a - minc) * (minc - b) > 0 THEN
c(l) = 1
PRINT minc; l
ELSE
c(l) = 0
PRINT "Не пренадлежит интервалу", minc; l
END IF
END

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

Leave a Comment