zad

zad.pas

PROGRAM baraba;
TYPE
    niz = ARRAY[1..100] OF integer;
VAR
   x: niz;
   n: integer;

PROCEDURE unos(VAR x: niz; n: integer);
VAR
   i: integer;
BEGIN
     FOR i := 1 TO n DO
     BEGIN
          write('x[', i, ']=');
          readLn(x[i]);
     END;
END;

PROCEDURE stampa(x: niz; n: integer);
VAR
   i: integer;
BEGIN
     FOR i := 1 TO n DO
     BEGIN
          writeLn('x[', i, ']=', x[i]);
     END;
END;

PROCEDURE raz(var x, y: integer);
BEGIN
     IF(x>y) THEN
     BEGIN
          x := x + y;
          y := x - y;
          x := x - y;
     END
     ELSE
     BEGIN
          y := y + x;
          x := y - x;
          y := y - x;
     END;
END;

{PROCEDURE QS(l, d: integer; VAR a: niz);
VAR
   i, j: integer;
   del : real;
BEGIN
     IF(l < d) THEN
     BEGIN
       i    := l;
       j    := d;
       del  := a[d];
       REPEAT
         WHILE(a[i] <  del) DO i := i + 1;
         WHILE((a[j] >= del) and (i < j)) DO j := j - 1;
         IF(i < j) THEN raz(a[i], a[j]);
       UNTIL (i = j);
       raz(a[i], a[d]);
       QS(l, i-1, a);
       QS(i+1, d, a);
     END;
END;}

{ AOKOKFO_Q }


BEGIN
     write('n=');
     readLn(n);
     unos(x, n);

     qs(1, n, x);
     stampa(x, n);

     readLn();
END.