Question

Даны массив (A1, А2, ..., A17). Получить новый массив, состоящий из A1, A3, ..., A17, A2, A4, ..., A1 Вообщем если не понятно, то на скриншоте всё видно. Нужно на паскале решить

Answer 1

Var A,B:array[1..17] of integer;
i:byte;
begin
for i:=1 to 17 do 
read(a[i]);

for i:=1 to 17 do
if odd(i) then
 begin
  b[i]:=a[i];
  write(b[i],' ');
 end;

for i:=1 to 17 do
if not odd(i) then 
 begin
  b[i]:=a[i];
  write(b[i],' ');
 end;
end.