109.2.. Sa tastature se unosi niz x[n]. Formirati niz A[n,n] kod kojeg su elementi na glavnoj dijagonali x[i] , iznad nje svi nula, a ispod svi n:
                   |  x_i,    i =j
          a_ij=   |  0,    i<j 
                   |  n,    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 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=');
READLN(n);
  FOR i:=1 TO n DO
    BEGIN
      WRITE('X[',i,']=');
       READLN(X[i]);
     END ;
FOR i:=1 TO n DO
FOR j:=1 TO n DO
  IF i=j THEN A[i,j]:=X[i]
  ELSE IF i <j THEN A[i,j]:=0 ELSE A[i,j]:=n;
  FOR i:=1 TO n DO
    BEGIN
      WRITELN;
      FOR j:=1 TO n DO
         WRITE(A[i,j]:4);
     END;
END.

Izvođenje programa:

Index