Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составить блок-схему и написать программу на языке программирования QBASIK). Дан массив А из 20 элементов. Заменить отрицательные элементы массива на среднее арифметическое элементов массива. Результат вывести на печать.

Ответ оставил Гость

CLS
N = 0S = 0
DIMA(20)
DATA51,22,33,44,-25,76,-87
DATA229,30,-81,882,43,-84,85
DATA37,-88,99,10,32,-55 
FOR i= 1 TO 20
READA(i)
PRINTA(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
PRINTA(i);
NEXT i