Untitled
unknown
ada
2 months ago
576 B
35
Indexable
WITH Ada.Text_IO; USE Ada.Text_IO; WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO; PROCEDURE Mystery IS TYPE Int_Array IS ARRAY (1..10) OF INTEGER; A : Int_Array := (10, 3, 7, 2, 5, 8, 1, 9, 4, 6); Temp, I, J : INTEGER; BEGIN FOR I IN 1 .. 10 LOOP FOR J IN REVERSE I+1 .. 10 LOOP IF A(J) < A(J-1) THEN Temp := A(J); A(J) := A(J-1); A(J-1) := Temp; END IF; END LOOP; END LOOP; FOR I IN 1 .. 10 LOOP Put(A(I)); Put(" "); END LOOP; New_Line; END Mystery;
Editor is loading...
Leave a Comment