** QBASIC!!!!!!!!!! 1)Для массива А. Найти количество положительных, сумму нечетных и...

Question

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

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

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

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

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

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

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

Answer 1

5 6)
input n
dim a(n)

for i=1 to n
  input a(i)
next i

for 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 j
next i

for i=1 to n
  print a(i);
next i
----------------------------
Для массива А опредилить сумму квадратов отрицательных элементов, произведение положительных элементов, нулевые-заменить числом 12. Результаты расчета и массив вывести на экран.
input n
dim a(n)
s=0
p=1

for i=1 to n
  input a(i)
next i

for i=1 to n
  if a(i)>0 then p=p*a(i)
  if a(i)<0 then s=s+a(i)*a(i)<br>  if a(i)=0 then a(i)=12
next i

for i=1 to n
  print a(i);
next i

print
print s
print p
----------------------------
Известны данные о количестве осадков, выпавших за каждый день января. Найти общее число осадков, выпавших по нечетным числам месяца.
n=31
dim a(n)
s=0

for i=1 to n
  input a(i)
next i

for i=1 to n
  if i mod 2 =0  then s=s+a(i)
next i

print
print s
-------------------------
Для массива А. Найти количество положительных, сумму нечетных и произведение чисел, кратных В. Результаты расчетаа и массив вывести на экран.
input n
input b
dim a(n)
s=0
p=1
k=0

for i=1 to n
  input a(i)
next i

for 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 i

for i=1 to n
  print a(i);
next i

print
print s
print p
print b