ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!!!!

[Firma4]

ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ по Qbasic:
2. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)
3. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения

[Paralax]

Firma4
Есть тема http://forum.bratsk.org/showthread.php?t=5635, зачем плодить дубли?

Вот решение

RANDOMIZE TIMER
OPTION BASE 1
'$DYNAMIC
DIM a(10)
CLS
'динамические массивы нормально работают только от 10 элементов
INPUT "Enter count elements of dimension (Min>10)"; ElemCount%


IF ElemCount% > 10 THEN
  REDIM a(ElemCount%)
ELSE
  ElemCount% = 10
END IF


'два способа заполнения (за/раскомментировать нужный блок)

'first - случайное число от -10 до 10
PRINT "Dimension"
FOR i = 1 TO ElemCount%
 a(i) = INT((RND * 20) + 1) - 10
 PRINT i; "="; a(i),
NEXT i

'second - вручную (закомментирован)
'FOR i = 1 TO ElemCount%
' PRINT "Elem "; i;
' INPUT a(i)
'NEXT i


PRINT

PositivCount = 0
PositivSum = 0
NegativCount = 0
NegativMulti = 1
FOR i = 1 TO ElemCount%

  IF a(i) >= 0 THEN
   PositivCount = PositivCount + 1
   PositivSum = PositivSum + a(i)
  END IF

  IF a(i) < 0 THEN
   NegativCount = NegativCount + 1
   NegativMulti = NegativMulti * a(i)
  END IF

NEXT i

PRINT "Positive elements"
PRINT "Count ="; PositivCount
PRINT "Sum ="; PositivSum
PRINT
PRINT "Negative elements"
PRINT "Count ="; NegativCount
PRINT "Multiplying ="; NegativMulti

[Samalko]

фу какая гадость васик))