Usuario:Fernando~eswikibooks/ejercicio 73

---

---

Problemas 7

ejercicio 7.3

Rellenar una matriz de 4x4

start

Var: Int i, j ; Real A [4][4]

For (i ← 0 , i < 4, i ← i + 1)

................For (j ← 0 , j < 4, j ← j +1)

........................If (j = = i) then

........................A[i][j] ← 1

........................Else

........................A[i][j] ← 0

...............End_For

End_For

End

---

.