ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ по Qbasic:
2. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)
3. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения
ПОМОГИТЕ РЕШИТЬ ЗАДАЧИ по Qbasic:
2. Подсчитать число и сумму положительных, число и произведение отрицательных элементов заданного массива A(N)
3. В заданном массиве A(N) определите количество элементов, которые меньше заданного значения
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
фу какая гадость васик))
Мир вам и Уважение!
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)