Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Для массива чисел А1А2...Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2

Ответ оставил Гость

Не написана среда программирования, пишу на qbasic

CLS
INPUT n
DIM a(n)
FOR i = 1 TO n
INPUT a(i)
NEXT i
FOR i = 1 TO n
IF i MOD 2 > 0 THEN
a(i) = a(i) * 2
ELSE
a(i) = INT(a(i) / 3)
END IF
NEXT i
PRINT
FOR i = 1 TO n
PRINT a(i);
NEXT i