Формирование массива Опции

[forMator]

Помогите пожалуйста!!
дан массив а1,...,а2n.
Получить массив а1,an+1,a2,an+2,an,a2n.

Код

Program pr;
const n=10;
Type vect=array[1..2*n] of integer;
var y,x:vect;
i:integer;
begin
writeln('vvod massiva');
for i:=1 to 2*n do readln(x[i]);
for i:=1 to n do y[i]:=???????????
writeln('polychim massiv');
for i:=1 to n do
write(y[i],' ');
readln;
end.

Что следует поставить вместо ????

Сообщение отредактировано: forMator - 29.09.2006 18:58

[volvo]

for i:=1 to n do begin
  y[2*(i-1)+1]:=x[i];
  y[2*i] := x[n+i];
end;

А почему печатаешь только половину массива Y ? Надо все 2*N элементов распечатывать, а не только первые N...