мформировать последовательность из нечетных чисел

[Julila]

дана последовательность из н целых чисел . сформировать из нее последовательность состоящий из нечетных чисел и расположить числа в ней в порядке возрастания.

я ее написала. но много ошибок. помогите избавится.

program l5_3;
  const n=3; m=3;
  var a:array [1..n,1..m] of integer;
      b:array [1..m] of integer;
      y,j,i,b1,b2:integer;



begin
  k:=0;
  for i:= 1 to n do
    if a[i] mod 2 <>0 then
      begin
       k:=k+1;
       b[k]:=a[i];
      end;
      b:=b1;
      b:=b2;
  write('puzirek');
    for i:=2 to k do
      for k to i do
        if b[j-1] > b[j] then
          begin
            y:=b[j-1];
            b[j]:=y;

          end;
           writeln ('b[',i:0,']=',b[i]:0:2);


   write('vstavka');
    for i:= 2 to k do
      for j:=1 to i-1 do
        if b1[j] > b1[i] then
          begin
            b1:=b1[i];
              for y:=i downto j+1 do
                b1[y]:=b1[y-1];
                b1[j]:=z;
          end;

           writeln ('b1[',i:0,']=',b[i]:0:2);
   write('vibor');
    for i:= 1 to k-1 do
      r:=1;
       for j:= i+1 to k do
       if b2[i] > b2[j] then
           i:=j;
        y:=b2[i];
        b2[i]:=b2[i];
        b2[i]:=y;
         writeln ('b2[',i:0,']=',b[i]:0:2);
         end.

[Rin]

слушай , а можешь свою последовательность матем. формулой здесь написать?

[unbanned]

вай.. а чтож так сложно? если правильно понял задание, то просто записать нечетные числа из общего массива в отдельный и упорядочить его...

[Julila]

мне надо его отсортировать тремя способами.
я запуталась просто. писала по фрагментам

[Son Of Pain]

var Mn,St,Ch,Zn,Znak,S1,An,Pg,x,eps,S2, S3,k2,k3,Pg2,Pg3:real;

Обожаю паскалеподобные языки за такое

[Julila]

исправила код

[pray_driver]

Сообщение от Son Of Pain

Обожаю паскалеподобные языки за такое

я тоже. особенно когда не написано, что значит каждая переменная

[Julila]

ну помогите .

пожалуйста как один массив б присвоить к б1

мне надо массив мой созданный B
cкопировать 2 раза в б1 и б2 и отсортировать двумя способами. я два дня не могу это оформить. я прошу вас помогите

[unbanned]

for i:=1 to n do begin // n - кол-во элементов в исходном массиве
b1[i]:=b[i];
b2[i]:=b[i];
end;

ну вот так... получиться 3 одинаковых массива

[Julila]

program l5_3;
  const n=3; m=3;
  var a:array [1..n,1..m] of integer;
      b:array [1..m] of integer;
         b1:array [1..m] of integer;
            b2:array [1..m] of integer;
      y,j,k,i:integer;

  k:=0;
  for i:= 1 to k do
    if a[i] mod 2 <>  0 then
      begin
       k:=k+1;
       b[k]:=a[i];
      end;
  write('puzirek');
    for i:=2 to k do
      for J:= k to i do
        if b[j-1] > b[j] then
          begin
            y:=b[j-1];
            b[j]:=y;
          end;
           writeln ('b[',i:0,']=',b[i]:0);
           begin
    for i:=1 to n do
    begin
    b[1]:=b[i];
    b2[i]:=b[i];
    end;

   write('vstavka');
    for i:= 2 to k do
      for j:=1 to i-1 do
        if b1[j] > b1[i] then
          begin
            b1:=b1[i];
              for y:=i downto j+1 do
                b1[y]:=b1[y-1];
                b1[j]:=z;
          end;

           writeln ('b1[',i:0,']=',b[i]:0:2);
   write('vibor');
    for i:= 1 to k-1 do
      r:=1;
       for j:= i+1 to k do
       if b2[i] > b2[j] then
           i:=j;
        y:=b2[i];
        b2[i]:=b2[i];
        b2[i]:=y;
         writeln ('b2[',i:0,']=',b[i]:0:2);
         end.

исправте ошибки пожалуйста