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

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

'Microsoft QBASIC 1.0DIM a(1 TO 40) AS INTEGERCLSk = 0RANDOMIZE TIMERFOR i = 1 TO 40  a(i) = INT(10 * RND) - 5  PRINT a(i);  IF a(i) = 0 THEN k = k + 1NEXT iPRINTPRINT "Количество нулей="; 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