Нужна помощь с 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