Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Формирование массива

Автор: forMator 29.09.2006 22:57

Помогите пожалуйста!!
дан массив а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.

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

Автор: volvo 29.09.2006 23:08

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

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