{* Задача84 *}

REM basic

' В переменную последовательно вводятся числа. Окончание ввода - по желанию пользователя либо когда сумма отрицательных чисел достигнет -1000. Определить среднее арифметическое отрицательных чисел.


10 S = 0: KOL = 0: F= 1
20 While F  0 And S > -1000
30 INPUT "Очередное число ="; X
40 If X < 0 Then S = S + X: KOL = KOL + 1
50 INPUT "Продолжаем ввод? (1 - да, 0 - нет)"; F
60 Wend
70 If KOL > 0 Then PRINT "Среднее арифметическое отрицательных чисел равно"; S / KOL
80 If KOL = 0 Then PRINT "Отрицательных чисел нет."
90 End