Question

Из элементов массива С сформировать массив А такого же размера по правилу:если номер четный, то А[i]=C[i]/2, если не четный то А[i]=2*C[i]"

Answer 1

Var
a, c : array of integer;
n, i : integer;
begin
  read(n);
  SetLength(a, n + 1);
  SetLength(c, n + 1);
  for i:=1 to n do
    read(c[i]);
  for i:=1 to n do
    if (i mod 2 = 0) then
      a[i] := c[i] div 2
    else
      a[i] := 2 * c[i];
  for i:=1 to n do
    write(a[i], ' ');
end.