zadatak

zad.pas

program unit1;
type
  niz = array[1..100] of integer;
var
  x: niz;
  n, r, i: integer;

{ Hvala Tina! }
procedure unos (n:integer;var x: niz);
var i:integer;
begin
  for i:=1 to n do begin
     write('x[',i,']= ');
     readln(x[i]);
  end;
end;

procedure stampa(n:integer;var x:niz);
var
  i:integer;
begin
  for i:=1 to n do begin
    writeln('x[',i,']=', x[i]);
  end;
end;

procedure zamena(var u, v: integer);
begin
  if(u > v) then begin u:=u+v; v:=u-v; u:=u-v; end
  else           begin v:=v+u; u:=v-u; v:=v-u; end;
end;

begin
    write('n=');
    readLn(n);
    write('r=');
    readLn(r);
    unos(n, x);

    i := n;
    x[n+1] := r;
    while(i >= 1) do begin
       if(x[i] > x[i+1]) then zamena(x[i], x[i+1]);
       i := i - 1;
    end;

    writeLn('================');
    stampa(n+1, x);
    readLn();
end.