Создать массив f(t) по следующим правилам: а)первая часть массива заполняется по Read,Data(отрицательными и положительными числами) б)во 2 части:элементы с нечетными номерами-случайные положительные числа,кратные M; элементы с четными номерами-равны числу 100. в) в 3 части элементы равны сумме двух предыдущих индексов № 2)Вывести массив на экран № 3)найти среднее арифметическое отрицательных элементов первой части № 4)вычислить сумму четных элементов во 2 части и найти их количество №5)вывести массив на экран — 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
DO
    INPUT "vvedite razmer massiva t ", t
    IF t < 20 THEN PRINT "malo elementov"
LOOP UNTIL t >= 20
DIM f(t)
INPUT " vvedite chislo m ", m
DATA 3,-8,5,7,-6,9,-4
FOR i = 1 TO 7
    READ f(i)
    s = s + f(i)
NEXT
k = (t - 7) \ 2
RANDOMIZE TIMER
FOR i = 8 TO 8 + k
    IF i MOD 2 = 0 THEN f(i) = 100 ELSE f(i) = INT(RND * 10) * m
    IF f(i) MOD 2 = 0 THEN sc = sc + f(i): kol = kol + 1
NEXT
FOR i = k + 9 TO t
    f(i) = i + i - 1
NEXT
PRINT "massiv"
FOR i = 1 TO t
    PRINT f(i);
NEXT
PRINT
PRINT "srednee 1 chasti="; s / 7
PRINT "summa chetnyh 2 chsti="; sc; " ih kolichestvo="; kol

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

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

Leave a Comment