12.132. Učitati niz pa ispisati prvo negativne, pa ostale članove niza. Ispisati članove niza tek poslije sortiranja.

Listing programa:

PROGRAM P10711003;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i, j, pom : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN ('Negativni pa ostali clanovi niza');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  FOR i := 1 TO n DO    { negativni }
    IF X[i] >= 0 THEN  
      BEGIN
        j := i + 1;
        WHILE (X[i] >= 0) AND (j <= n) DO
          BEGIN
            IF X[j] < 0 THEN
              BEGIN
                pom := X[i];
                X[i] := X[j];
                X[j] := pom;         
              END;
              j := j + 1;
          END;
      END;
  FOR i := 1 TO n DO  {izlaz}
    WRITELN('X[',i,'] = ', X[i]);
END.

Izvođenje programa:

Index