Для массива чисел А1А2...Аn элементы, стоящие на четных местах разделить на 3, а стоящие на нечетных умножить на 2
Для массива чисел А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
ГостьPascal var a: array[1..n] of real; n,i: real; begin write('vvedite kolichestvo elementov'); readln(n); randomize; for i:=1 to n do a[i]:=random(100); for i:=1 to n do begin
if odd(i) then a[ i]:=a[ i]*2 else
a[ i]:=a[ i]/3;
end; write(a[i]); readln; end.
Не нашли ответ?
Похожие вопросы