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

Question

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

Answer 1

Не написана среда программирования, пишу на 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

 

Answer 2

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.