{* Задача112 *}

REM basic

' Дан массив чисел Q(1051). Вычислить среднее арифмитическое значение нечетных элементов кратных 7, расположенных после первого встретившегося такого элемента и до конца массива.


CLS
Dim q(1051)
For i = 1 To 1051
    q(i) = FIX(100 * RND(1) - 25)
Next
For i = 8 To 1051
    If i / 2  INT(i / 2) And i / 7 = INT(i / 7) Then k = k + 1: s = s + q(i)
Next
PRINT "sred. znach.:"; s / k
End