matriz codigo

[roman]

¿Has leido en voz alta tu pregunta?

No sé a qué te refieres con cuadrado de la primera diagonal así que contestaré a

¿Cómo llenar una matriz cuadrada con 1's en la diagonal principal y 0's fuera de ella?

Código Delphi [-]
for I := 1 to N
  for J := 1 to N do
    if I = J
      then M[I, J] := 1
      else M[I, J] := 0;

donde M es la matriz y N la dimensión de la matriz.

// Saludos