Вопрос по информатике:
QBasic. Задать массив из 10 элементов, 5 из которых задаются статически, а 5 рандомно. Подсчитать произведение этих элементов и количество положительных чисел в этом массиве.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.11.2015 13:46
- Информатика
- remove_red_eye 15680
- thumb_up 16
Ответы и объяснения 1
RANDOMIZE TIMER
FOR i = 1 TO 5
A(i) = i
NEXT i
FOR i = 6 TO 10
A(i) = RND * 21 - 10
NEXT i
P = 1
PRINT "MASS(10): ";
FOR i = 1 TO 10
PRINT " "; A(i);
P = P * A(i)
IF A(i) > 0 THEN
k = k + 1
END IF
NEXT i
PRINT "P = "; P
PRINT "k = "; k
END
- 21.11.2015 07:53
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.