Нужна помощь с Qbasic. Сможет кто написать програму плиз? срочно Дано 40 чисел....

Question

Нужна помощь с Qbasic. Сможет кто написать програму плиз? срочно

Дано 40 чисел. Подсчитать количество элементов, не равное нулю.

Answer 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