Помощь - Поиск - Пользователи - Календарь
Полная версия: Формирование массива
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.