109.1.. Formirati dvodimenzionalni niz čiji su svi elementi glavne dijagonale koji su 1. Elementi iznad glavne dijagonale su 2 a ispod 0. Ispisati dvodimenzionalni niz.
                   |   2,    i<j
          xij=    |   1,    i=j
                   |   0,   i>j
Ispisati dvodimenzionalni niz.

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 p10912014;
USES
  WinCrt;
VAR
 i,j,n : INTEGER;
 X : ARRAY [1..15,1..15] OF INTEGER;
BEGIN
  WRITE('n (kvadratna matrica) =');
  READLN(n);
  FOR i:=1 TO n DO
    FOR j:=1 TO n DO
     IF i < j THEN
       x[i,j]:=2
     ELSE
      IF i=j THEN
        x[i,j]:=1 
      ELSE
        x[i,j]:=0; 
  FOR i := 1 TO n DO  {izlaz}
    BEGIN
      WRITELN;
      FOR j := 1 TO n DO
        WRITE(X[i,j]:4);
    END;
END.

Izvođenje programa:

Index