109.1.. Formirati dvodimenzionalni niz čiji su elementi definisani izrazom:
                   |   1,    i < j
          xij=    |   0,    i >=  
                   |   -1,    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 p10912013;
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]:=0
       ELSE
         X[i,j]:=-1;
  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