.одномерный массив_вектора, из одного массива получить другой. Опции

[кучаТрупов]

тема-одномерные масивы_веkтора

задача- из вектора х(х1,х2,...,xn) получить вектор y(x1,x3,x5,...,x6,x4,x2) компоненты которого перенумерованы также от 1 до n.



ну как всегда-мысли,идеи,пожелания. [jnz dtlm ghjcnfz pflfxf((

Сообщение отредактировано: кучаТрупов - 15.12.2008 19:42

[Unconnected]

const n=20; {Кол-во элементов каждого из массивов}
var mas1,mas2:array[1..n] of integer;
    a,b:integer;
begin
  b:=1; {<=переменная-счётчик для добавления элементов во 2ой массив}
  for a:=1 to n do {<=Заполнение первого массива числами от 1 до 20}
  begin
    mas1[a]:=a;
  end;
  for a:=1 to n do 
  begin
     if (mas1[a] mod 2 = 0) then begin  {<=проверка элемента на чётность и добавление его в ячейку массива 2 с индексом b}
                                                  mas2[b]:=mas1[a];
                                                  inc(b); {<=увеличиваем счётчик на 1}
                                              end;
  end;
  for a:=1 to n do
  begin
    if (mas1[n+1-a] mod 2 = 1) then begin{<=проходим массив с конца,т.к. нечётные эл-ты нужно расположить по убыванию.Проверка на НЕчётность}
                                                        mas2[b]:=mas1[n+1-a];
                                                       inc(b);
                                                    end;
  end;
  for a:=1 to n do
  begin
    write(mas2[a],' ');
  end;
  readln;
end.