{* Задача137 *}

REM basic

' Дан массив v1,...,v10. Если среди первых пяти элементов есть отрицательные числа то заменить элементы с шестого по 10 на среднее арифметическое всего ряда.


CLS
RANDOMIZE TIMER
Dim v(10)
k = 0
s = 0
For i = 1 To 10
v(i) = INT(50 * RND(1) - 15)
If i >= 1 And i = 1 Then GoTo 3 Else GoTo 4
3 For i = 1 To 10
s = s + v(i)
Next i
sred = s / i
sred = (INT(sred * 10)) / 10
PRINT
For i = 1 To 10
v(i) = sred
PRINT v(i);
Next i
4 End
End