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

[unbanned]

    for i:=1 to n do
    begin
    b[1]:=b[i]; // b1[i]:=b[i]; 
    b2[i]:=b[i];
    end;

[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,i:integer;
      k :real;
  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;
  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
    b1[i]:=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.

у меня вышло это
все равно не работает. что делать?

[k0tone]

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

program l5_3;

const
  m=3;

var
  a :array [1..m] of integer;
  b :array [1..m] of integer;
  b1:array [1..m] of integer;
  b2:array [1..m] of integer;
  i,j,k,r,y,z:integer;

begin

  k:=0;
  for i:=1 to m 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);

  for i:=1 to m 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[i]:=b1[j];
              for y:=i downto j+1 do
                b1[y]:=b1[y-1];
                b1[j]:=z;
          end;

           writeln ('b1[',i:0,']=',b[i]: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]:2);
  readln;
end.

P.S. сделал так чтоб компилировалось... ошибок там туча...
P.P.S. чуть позже попробую разобраться что к чему.

[k0tone]

у меня вышло это
все равно не работает. что делать?

Вышло у тебя не очень...

program l5_3;

uses
  crt;

var
  a :array [1..64] of integer;
  b :array [1..64] of integer;
  b1:array [1..64] of integer;
  b2:array [1..64] of integer;
  i,j,k,n,y,minindex,minelem:integer;

begin
  clrscr;
  write('Vvedite kol-vo elementov massiva: N=');
  readln(n);

  for i:=1 to n do
    readln(a[i]);
    clrscr;

  for i:=1 to n do
    write(a[i]:4);

  writeln;

  k:=0;
  for i:=1 to n do
    if a[i] mod 2 <> 0 then
      begin
        k:=k+1;
        b[k]:=a[i];
      end;

  for i:=1 to k do
    begin
      b1[i]:=b[i];
      b2[i]:=b[i];
    end;

  writeln;

  write('puzirek:');
  for j:=1 to k-1 do
    for i:=1 to k-j do
      if b[i]>b[i+1] then
        begin
          y:=b[i];
          b[i]:=b[i+1];
          b[i+1]:=y;
        end;

  for i:=1 to k do
  write(b[i]:4);

  writeln;

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

  for i:=1 to k do
  write(b1[i]:4);

  writeln;

  write('vibor:  ');
  for j:=1 to k-1 do
    begin
      minindex:=j;
      minelem:=b2[j];
      for i:=j+1 to k do
        if b2[i]<minelem then
          begin
            minelem:=b2[i];
            minindex:=i;
          end;
      y:=b2[j];
      b2[j]:=b2[minindex];
      b2[minindex]:=y;
    end;

  for i:=1 to k do
  write(b2[i]:4);

  readln;
end.

P.S. Исправил ошибки, сортировки переделал исходя из источника.
Сам источник:
Кликай сюда

[Julila]

спасибо тебе большое))
я поставлю тебе столько благодарностей сколько смогу)