O procedimento abaixo preenche uma matriz quadrada n × n com:
• −1 nos elementos abaixo da diagonal principal;
• 0 nos elementos da diagonal principal;
• 1 nos elementos acima da diagonal principal.
procedure PreencheMatriz;
var
i, j: integer;
begin
for i:= 1 to n do
for j := 1 to n do
if i > j then matriz[i,j] := ?
else if i < j then matriz[i,j] := ?
else matriz[i,j] := ?
end;
Os valores que devem ser respectivamente colocados no primeiro, segundo e terceiro comandos de atribuição, marcados no código com uma interrogação (?), para o preenchimento correto da matriz são: