zadaca2

unit Unit2;

interface
type
  B = array[1..1] of integer;
  PB = ^B;

implementation
var
  A: array [1..10] of integer;
  i, j, m, n, min, f: integer;
  MyArr: PB;
begin
  min := 32767;
  randomize;
  for i := 1 to 10 do begin
    A[i] := random(100);
    if min >= A[i] then begin
      min := A[i];
      j := i;
    end;
    write(A[i], ' ');
  end;
  writeln('');
  write('min is ', min, ' j is ', j);
  getmem(MyArr, (j div 2)*sizeof(B));
  writeln('');
  f := 1;
  for i := 1 to j-1 do begin
    if (i mod 2) <> 0 then begin
      MyArr^[f] := A[i];
      write(MyArr^[f], ' ');
      inc(f);
    end
    else continue;
  end;
  for i := 1 to (j div 2)-1 do begin
    for n := 1 to j-i do
      if MyArr^[i+1] > MyArr^[i] then begin
        m := MyArr^[i];
        MyArr^[i] := MyArr^[i+1];
        MyArr^[i+1] := m;
      end;
  end;
  writeln('');
  for i := 1 to (j div 2) do write(MyArr^[i], ' ');
  freemem(MyArr, (j div 2)*sizeof(B));
  readln;
end.