以下是一个简单的Ada程序示例，演示了一维数组的基本操作：

with Ada.Text_IO;

procedure Array_Operations is
   -- 声明一个整数数组
   type Int_Array is array (1 .. 5) of Integer;

   -- 初始化数组
   A : Int_Array := (10, 20, 30, 40, 50);

begin
   -- 打印数组元素
   Ada.Text_IO.Put_Line("数组元素为:");
   for I in A'Range loop
      Ada.Text_IO.Put_Line(A(I)'Image);
   end loop;

   -- 计算数组元素的和
   declare
      Sum : Integer := 0;
   begin
      for I in A'Range loop
         Sum := Sum + A(I);
      end loop;
      Ada.Text_IO.Put_Line("数组元素的和为: " & Sum'Image);
   end;

   -- 查找数组中的最大元素
   declare
      Max : Integer := A(1);
   begin
      for I in A'Range loop
         if A(I) > Max then
            Max := A(I);
         end if;
      end loop;
      Ada.Text_IO.Put_Line("数组中的最大元素为: " & Max'Image);
   end;
end Array_Operations;

这个程序声明了一个名称为Int_Array的整数数组类型，范围为1到5。然后，创建了一个名为A的数组变量，并初始化为10, 20, 30, 40, 50。

接下来，程序使用一个循环打印数组中的元素。然后，使用另一个循环计算数组元素的总和，并打印结果。

最后，程序使用另一个循环查找数组中的最大元素，并将其打印出来。

这只是一个简单的示例，演示了一维数组的一些基本操作。在实际应用中，还可以进行更复杂的操作，如排序、查找特定元素等。