Задание:
Для массива чисел А1А2… Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
Решение:
Не написана среда программирования, пишу на qbasicCLSINPUT nDIM a (n) FOR i=1 TO n INPUT a (i) NEXT iFOR i=1 TO n IF i MOD 2 > 0 THEN a (i)=a (i)*2 ELSE a (i)=INT (a (i) / 3) END IFNEXT iPRINTFOR i=1 TO n PRINT a (i); NEXT i
Знаете другой ответ?