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

+ 0 -

ОёЁшЕнЬкИ

18 авг. 2013 г., 7:18:26 (10 лет назад)

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)
  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