unit Unit9;
interface
uses
Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,
Vcl.Controls,Vcl.Forms,Vcl.Dialogs,Vcl.StdCtrls;
TYPE
Arr=array[0..10] of integer;
type
TForm9 = class(TForm)
Button1: TButton;
function Arrinit(MM:arr):arr;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
{ TForm9 }
function TForm9.Arrinit(MM: arr): arr;
var
i:integer;
begin
for I := 0 to 10 do
begin
MM[i]:=i;
end;
result:=MM;
end;
procedure TForm9.Button1Click(Sender: TObject);
var
AA:arr;
i,sum:Integer;
begin
sum:=0;
AA:=Arrinit(aa);
for i := 0 to 10 do
begin
sum:=sum+AA[i];
end;
showmessage(IntToStr(sum));
end;
end.
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。