O procedimento abaixo preenche uma matriz quadrada n × n com:

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: