Data update

Task/Identity-matrix/Ada/identity-matrix-1.ada

@@ -1,4 +0,0 @@
---  As prototyped in the Generic_Real_Arrays specification:
---  function Unit_Matrix (Order : Positive; First_1, First_2 : Integer := 1) return Real_Matrix;
--- For the task:
-mat : Real_Matrix := Unit_Matrix(5);

Task/Identity-matrix/Ada/identity-matrix-2.ada

@@ -1,4 +0,0 @@
-type Matrix is array(Positive Range <>, Positive Range <>) of Integer;
-mat : Matrix(1..5,1..5) := (others => (others => 0));
---  then after the declarative section:
-for i in mat'Range(1) loop mat(i,i) := 1; end loop;