Вопрос по информатике:
Составить блок-схему и написать программу на языке программирования QBASIK). Дан массив А из 20 элементов. Заменить отрицательные элементы массива на среднее арифметическое элементов массива. Результат вывести на печать.
- 25.01.2018 13:14
- Информатика
- remove_red_eye 13715
- thumb_up 36
Ответы и объяснения 1
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
- 26.01.2018 12:46
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.