! QBasic !
Даны действительные числа а1 , а2 , … Известно, что а1>0 и что среди а2 , а3 , … есть хотя бы одно отрицательное число. Пусть а1 , … , аn – члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестное). Получить среднее арифметическое а1 , … , аn
Даны действительные числа а1 , а2 , … Известно, что а1>0 и что среди а2 , а3 , … есть хотя бы одно отрицательное число. Пусть а1 , … , аn – члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестное). Получить среднее арифметическое а1 , … , аn
Answers & Comments
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)