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

@gaiver2 · Регистрация: 06.05.2009

Студворк — интернет-сервис помощи студентам

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

@Toxa33rus · 04.06.2009, 21:16

PureBasic

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

@gaiver2 0 / 0 / 0 Регистрация: 06.05.2009 Сообщений: 6
		1
	Определить номера отрицательных элементов одного массива и произведение положительных элементов второго 04.06.2009, 17:05. Показов 950. Ответов 1 Метки нет (Все метки) ввести два массива длиной 8. Определить номера отрицательных элементов одного массива и произведение положительных элементов второго массива! (для Qbasic) 0

Опции темы

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

Решение