26 lines
757 B
Ada
26 lines
757 B
Ada
with Ada.Text_IO;
|
|
with Mode;
|
|
procedure Main is
|
|
type Int_Array is array (Positive range <>) of Integer;
|
|
package Int_Mode is new Mode (Integer, Int_Array);
|
|
|
|
Test_1 : Int_Array := (1, 2, 3, 1, 2, 4, 2, 5, 2, 3, 3, 1, 3, 6);
|
|
Result : Int_Array := Int_Mode.Get_Mode (Test_1);
|
|
begin
|
|
Ada.Text_IO.Put ("Input: ");
|
|
for I in Test_1'Range loop
|
|
Ada.Text_IO.Put (Integer'Image (Test_1 (I)));
|
|
if I /= Test_1'Last then
|
|
Ada.Text_IO.Put (",");
|
|
end if;
|
|
end loop;
|
|
Ada.Text_IO.New_Line;
|
|
Ada.Text_IO.Put ("Result:");
|
|
for I in Result'Range loop
|
|
Ada.Text_IO.Put (Integer'Image (Result (I)));
|
|
if I /= Result'Last then
|
|
Ada.Text_IO.Put (",");
|
|
end if;
|
|
end loop;
|
|
Ada.Text_IO.New_Line;
|
|
end Main;
|