Exemple complet

Initialisation d'une matrice unité de dimension 10. Il s'agit donc d'une matrice à 10 colonnes et 10 lignes, ne comportant que des 0, sauf sur sa diagonale où il n'y a que des 1.

program SOMME_MATRICE ;

const

  l_max = 10 ;

  c_max = 10 ;

type

    Matrice = array [1..l_max,1..c_max] of integer ;

var

   i, j : integer;

   mat : Matrice;

begin

    for i := 1 to l_max do

       begin

            for j := 1 to c_max do

                begin

                    if i = j then

                        mat [i, j] := 1

                    else

                        mat [i, j] := 0 ;

                   write (mat [i, j]);

                end ;

                writeln ;

       end ;

end.