11.1. Učitati članove niza. Ispisati članove niza u obrnutom redoslijedu..

Opis programa: Ispis u obrnutom redoslijedu se izvodi korištenjem obrnutog redoslijeda u naredbe FOR (DOWNTO)

Listing programa:

PROGRAM p10111010;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Ulaz i izlaz niza');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  FOR i := n DOWNTO 1 DO  {izlaz}
    WRITELN('X[',i,'] = ',X[i]);
  END.

Ispis na ekranu:

Index