Ввести два массива длиной 8. Определить номера отрицательных элементов одного массива и произведение положительных элементов второго массива — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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

Похожие записи/страницы: