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

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

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

автор: кот Бегемот