109.1..Formirati dvodimenzionalni niz čiji su elementi definisani izrazom:
                  |   1,    i < j
          xij=    |   2,    i = j  
                   |   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 a₁₁, a₂₂, ..., a_nn  čine glavnu dijagonalu.

Slika 1. Glavna dijagonala i=j

Tekstualni algoritam:

Listing programa:

 
PROGRAM p10912012;
USES
  WinCrt;
VAR
  i, j ,n : INTEGER;
  x: ARRAY[1..10,1..10] OF INTEGER;
BEGIN
  WRITE('n=');
  READLN(n);
  FOR i:=1 TO n DO
   FOR j:=1 TO n DO
    IF i < j THEN
      X[i,j]:=1
    ELSE
       IF i =j THEN
         X[i,j]:=2
       ELSE
         X[i,j]:=0;
  FOR i:=1 TO n DO
    BEGIN
      WRITELN;
      FOR j:=1 TO n DO
        WRITE(x[i,j]:4);
     END;
END.

Izvođenje programa:

Index