Информатика, опубликовано 2018-08-22 21:42:40 by Гость
Нужна помощь с Qbasic. Сможет кто написать програму плиз? срочно Дано 40 чисел. Подсчитать количество элементов, не равное нулю.
Ответ оставил Гость
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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на