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: