Qbasic ! даны действительные числа а1 , а2 , … известно, что а1> 0 и что среди а2 , а3 , … есть хотя бы одно отрицательное число. пусть а1 , … , аn – члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестное). получить среднее арифметическое а1 , … , аn
CLS
n = 0
S = 0
DATA 2, 2, 2, 4, 4, 4, 2, 4, -2
DO
READ x
S = S + x
n = n + 1
LOOP UNTIL x < 0
PRINT "Sr="; (S - x) / (n - 1)