Найти среднее арифметическое отрицательных элементов первой части. Вычислить сумму четных элементов во 2 части и найти их количество — Basic(Бейсик)

disel
  1. Создать массив f(t) по следующим правилам:
    • первая часть массива заполняется по Read,Data(отрицательными и положительными числами)
    • во 2 части:элементы с нечетными номерами-случайные положительные числа,кратные M; элементы с четными номерами-равны числу 100.
    • в 3 части элементы равны сумме двух предыдущих индексов
  2. Вывести массив на экран
  3. найти среднее арифметическое отрицательных элементов первой части
  4. вычислить сумму четных элементов во 2 части и найти их количество
  5. вывести массив на экран
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

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

Leave a Comment