Составить блок-схему и написать программу на языке программирования qbasik). дан массив а из 20 элементов. заменить отрицательные элементы массива на среднее арифметическое элементов массива. результат вывести на печать.
CLS N = 0 S = 0 DIM A(20) DATA 51,22,33,44,-25,76,-87 DATA 229,30,-81,882,43,-84,85 DATA 37,-88,99,10,32,-55 FOR i = 1 TO 20 READ A(i) PRINT A(i); N = N + 1 S = S + A(i) NEXT i Sr = S / N PRINT PRINT "N ="; N PRINT "S ="; S PRINT "Sr="; Sr PRINT "-------------------------------------------" FOR i = 1 TO 20 IF A(i) < 0 THEN A(i) = Sr END IF PRINT A(i); NEXT i
N = 0 S = 0
DIM A(20)
DATA 51,22,33,44,-25,76,-87
DATA 229,30,-81,882,43,-84,85
DATA 37,-88,99,10,32,-55
FOR i = 1 TO 20
READ A(i)
PRINT A(i);
N = N + 1
S = S + A(i)
NEXT i
Sr = S / N
PRINT
PRINT "N ="; N
PRINT "S ="; S
PRINT "Sr="; Sr
PRINT "-------------------------------------------"
FOR i = 1 TO 20
IF A(i) < 0 THEN
A(i) = Sr
END IF
PRINT A(i);
NEXT i