НА QBASIC!!!!!!!!!!

1)Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.

2)Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.

3)Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.

4)Известна стоимость каждого из 15 видов товаров. Напечатать номера тех видов товаров, которые имеют стоимость всех видов товаров.

5)Дан массив А, отсортировать его по возрастанию. Отсортированный массив вывести на экран.

6)Дан массив А, Отсортировать его по убыванию. Отсортированный массив вывести на экран. 

5 6)input ndim a(n)for i=1 to n  input a(i)next ifor i=1 to n  for j=i to n  if a(i)>a(j) then 'поменяешь больше на меньше и будет сортировать в другую сторону     t=a(i)    a(i)=a(j)    a(j)=t  end if    next jnext ifor i=1 to n  print a(i);next i----------------------------Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.input ndim a(n)s=0p=1for i=1 to n  input a(i)next ifor i=1 to n  if a(i)>0 then p=p*a(i)  if a(i)<0 then s=s+a(i)*a(i)  if a(i)=0 then a(i)=12next ifor i=1 to n  print a(i);next iprintprint sprint p----------------------------Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.n=31dim a(n)s=0for i=1 to n  input a(i)next ifor i=1 to n  if i mod 2 =0  then s=s+a(i)next iprintprint s-------------------------Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.input ninput bdim a(n)s=0p=1k=0for i=1 to n  input a(i)next ifor i=1 to n  if a(i)>0 then k=k+1  if i mod 2 = 1 then s=s+a(i)  if a mod b = 0 then p=p*a[i]next ifor i=1 to n  print a(i);next iprintprint sprint pprint b