Вычислить произведение элементов массива, значения которых кратны 3

@Mr.Green · Регистрация: 03.12.2010

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

Скажите пожулуйста каким образом сделать данное задание именно на Qbasic
и какой алгоритм(если можно). Последнее вроде осталось.

Дан одномерный массив, состоящий из n элементов. Необходимо
сделать следующее:

1. Вычислить произведение элементов массива, значения которых кратны 3.

2. Преобразовать массив так, чтобы элементы массива с нечетными и четны-
ми индексами поменялись местами (первый – со вторым, третий – с четвер-
тым и т.д.).

@Quiet Snow · 06.12.2010, 09:54

1.

PureBasic

DIM M%(10)
   CLS
   RANDOMIZE TIMER
FOR i = 1 TO 10
  M%(i) = RND * 21 - 10
  PRINT M%(i);
NEXT i: PRINT
Pr# = 1
FOR i = 1 TO 10
  IF M%(i) MOD 3 = 0 THEN Pr# = Pr# * M%(i)
NEXT i
PRINT "Proizvedenye:"; Pr#

Добавлено через 16 минут
2.

PureBasic

CLS
Again: INPUT "Vvedite razmer massiva:", n
n = (n \ 2) * 2
IF n <= 0 GOTO Again
PRINT "Razmer massiva preobrazovan k chetnomu chislu i raven "; n
DIM M%(n)
   ' Заполним массив и на экран его
   RANDOMIZE TIMER
FOR i = 1 TO n
  M%(i) = RND * 21 - 10
  PRINT M%(i);
NEXT i: PRINT
  '  Меняем эл-ты
FOR i = 2 TO n STEP 2
  SWAP M%(i), M%(i - 1)
NEXT i
  '  Вывод
FOR i = 1 TO n
  PRINT M%(i);
NEXT i

@Mr.Green 0 / 0 / 0 Регистрация: 03.12.2010 Сообщений: 7
		1
	Вычислить произведение элементов массива, значения которых кратны 3 06.12.2010, 01:07. Показов 1314. Ответов 1 Метки нет (Все метки) Скажите пожулуйста каким образом сделать данное задание именно на Qbasic и какой алгоритм(если можно). Последнее вроде осталось. Дан одномерный массив, состоящий из n элементов. Необходимо сделать следующее: 1. Вычислить произведение элементов массива, значения которых кратны 3. 2. Преобразовать массив так, чтобы элементы массива с нечетными и четны- ми индексами поменялись местами (первый – со вторым, третий – с четвер- тым и т.д.). 0

Опции темы

Вычислить произведение элементов массива, значения которых кратны 3

Решение