ТутРешу.Ру

Для массива чисел А1А2…

Задание:

Для массива чисел А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




Знаете другой ответ?

Отправить свой ответ