Найти количество положительных, сумму нечетных и произведение чисел, кратных В - QBasic

Формулировка задачи:

НА QBASIC!!!!!!!!!! 1)Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран. 2)Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран. 3)Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца. 4)Известна стоимость каждого из 15 видов товаров. Напечатать номера тех видов товаров, которые имеют стоимость всех видов товаров. 5)Дан массив А, отсортировать его по возрастанию. Отсортированный массив вывести на экран. 6)Дан массив А, Отсортировать его по убыванию. Отсортированный массив вывести на экран.

Решение задачи: «Найти количество положительных, сумму нечетных и произведение чисел, кратных В»

Листинг программы

cls
randomize timer
input "n=" n;
input "m=" m;
dim a(n,m)
for j=1 to n
for k=1 to m
a(j,k)=int(rnd(1)*10-3)
next k
next j
print "Элементы массива"
for j=1 to n
for k=1 to m
print a(j,k);
next k
print
next j
print "Сумма квадратов отрицательных элементов"
p=0
for j=1 to n
for k=1 to m
if a(j,k)<0 then p=p+a(j,k)^2
next k
next j
print p
print "Произведение положительных элементов массива"
s=1
for j=1 to n
for k=1 to m
if a(j,k)>0 then s=s*a(j,k)
next k
next j
print s
print "Замена 0 на 12"
for j=1 to n
for k=1 to m
if a(j,k)=0 then a(j,k)=12
next k
next j
for j=1 to n
for k=1 to m
print a(j,k);
next k
print 
next j

Объяснение кода листинга программы

Задаются два числа - n и m, которые определяют размерность массива a(n,m).
В цикле заполняются элементы массива a(j,k) случайными числами от -3 до 7 с шагом 1.
Выводится содержимое массива a(j,k).
Считается сумма квадратов отрицательных элементов массива a(j,k).
Считается произведение положительных элементов массива a(j,k).
Производится замена всех нулей на 12 в массиве a(j,k).
Выводится обновленный массив a(j,k).