109.2.. Sa tastature se unosi niz x[n]. Formirati niz A[n,n] kod kojeg su elementi na glavnoj dijagonali x[i] ,a ostali su nula:
                   |  xi,    i =j
          aij=   |
                   |  0,    i <> j

Opis programa: Glavna dijagonala - Elementi glavne dijagonale ima iste indekse reda i kolone (i=j), Iznad glavne dijagonale je indeks reda manji od indeksa kolone, a ispod glavne dijagonale je indeks reda veći glavne dijagonale. Elementi a11, a22, ..., ann  čine glavnu dijagonalu.

Slika 1. Glavna dijagonala i=j

Tekstualni algoritam:

Listing programa:

PROGRAM p10912003;
USES
  WinCrt;
VAR
  i, j, n : INTEGER;
  a: ARRAY[1..10,1..10] OF INTEGER;
  x: ARRAY[1..10] OF INTEGER;
BEGIN
  WRITE('n (kvadratna matrica) =');
  READLN(n);
  FOR i:=1 TO n DO  {ucitaj niz}
    BEGIN
      WRITE('X[',i,']=');
       READLN(X[i]);
     END ;
FOR i:=1 TO n DO  {fromiranje matrice}
FOR j:=1 TO n DO
  IF i=j THEN 
    A[i,j] := X[i]
  ELSE 
    A[i,j]:=0;
  WRITELN('Niz');
  FOR i:=1 TO n DO  {izlaz niza}
    WRITE(X[i]:4);
  WRITELN;
  WRITELN('Matrica');
  FOR i:=1 TO n DO  {izlaz matrice}
    BEGIN
      WRITELN;
      FOR j:=1 TO n DO
         WRITE(A[i,j]:4);
    END;     
END.

Izvođenje programa:

Index