Умножить все элементы, кратные трем, на третий элемент массива

@Arci · Регистрация: 26.01.2015

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

Умножить все элементы,кратные 3, на третий элемент массива.

@ZX Spectrum-128 · 26.01.2015, 18:27

QBasic/QuickBASIC

DIM a(1 TO 100)
 
RANDOMIZE TIMER
PRINT "N?"
INPUT n
PRINT "Old array"
FOR i = 1 TO n
  a(i) = INT(RND * 50 - 50 / 2)
  PRINT a(i);
NEXT i
 
FOR i = 1 TO n
  IF a(i) MOD 3 = 0 THEN
    a(i) = a(i) * a(3)
  END IF
NEXT
PRINT
PRINT "New array"
FOR i = 1 TO n
  PRINT a(i);
NEXT i

@Arci 0 / 0 / 0 Регистрация: 26.01.2015 Сообщений: 6
		1
	Умножить все элементы, кратные трем, на третий элемент массива 26.01.2015, 02:36. Показов 1499. Ответов 1 Метки нет (Все метки) Умножить все элементы,кратные 3, на третий элемент массива. 0

	26.01.2015, 18:27

Умножить все элементы, кратные трем, на третий элемент массива

Решение