Вопрос по информатике:
Нужна помощь с Qbasic. Сможет кто написать програму плиз? срочно
Дано 40 чисел. Подсчитать количество элементов, не равное нулю.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.10.2017 15:51
- Информатика
- remove_red_eye 1021
- thumb_up 5
Ответы и объяснения 1
'Microsoft QBASIC 1.0
DIM a(1 TO 40) AS INTEGER
CLS
k = 0
RANDOMIZE TIMER
FOR i = 1 TO 40
a(i) = INT(10 * RND) - 5
PRINT a(i);
IF a(i) = 0 THEN k = k + 1
NEXT i
PRINT
PRINT "Количество нулей="; k
Тестовое решение
-2 -3 -1 -1 1 1 2 1 -5 -4 -3 4 -1 -3 1 -1 2 -4 2 3 2 -5 -2 0 -1 0
0 -3 2 -4 -5 1 2 -3 -5 -1 2 0 2 4
Количество нулей= 4
- 16.10.2017 05:58
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.