Определить номера отрицательных элементов одного массива и произведение положительных элементов второго

gaiver2

ввести два массива длиной 8. Определить номера отрицательных элементов одного массива и произведение положительных элементов второго массива! (для Qbasic)
1 ответ

gaiver2

CLS
DIM A(1 TO 8)
DIM B(1 TO 8)
FOR i = 1 TO 8
  PRINT "A("; i; ") = "
  INPUT "", A(i)
NEXT i
 
FOR i = 1 TO 8
  PRINT "B("; i; ") = "
  INPUT "", B(i)
NEXT i
 
FOR i = 1 TO 8
  IF A(i) < 0 THEN
    PRINT "otr: "; i
  END IF
NEXT i
 
Proizv = 1
 
FOR i = 1 TO 8
  IF B(i) > 0 THEN
    Proizv = Proizv * B(i)
  END IF
NEXT i
PRINT "Proizvedenie:"; Proizv