Qbasic. задать массив из 10 элементов, 5 из которых статически, а 5 рандомно. подсчитать произведение этих элементов и количество положительных чисел в этом массиве.

Cls 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 print "p = "; p print "k = "; k end