НА QBASIC! 1) Для массива…

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