Равен нулю, а из редактора Edit берется 1-й,2-й ит.д

элементы}

End;

procedure TForm1.Button2Click(Sender: TObject);

// вывод массива

var i:integer;

Begin

for i:= 0 to n-1 do

Form2.listBox1.items.Add(IntToStr(A[i]))

End;

procedure TForm1.Button3Click(Sender: TObject);

// показ результатов в Form2

Begin Form2.show end;

procedure TForm1.Button4Click(Sender: TObject);

// суммирование

Var k,i,S:integer;

B:arr;

begin k:=0;

SetLength(B,k+1); // Выделение памяти

for i:=0 to n-1 do

if A[i]>0 then

Begin

SetLength(B,k+1); // Выделение памяти

B[k]:=A[i]; k:=k+1 end;

S:=Sum(k,B);

Form2.Edit1.Text:=IntToStr(S);end;

procedure TForm1.Button5Click(Sender: TObject);

// максимальный элемент

Var amax,i,kmax:integer;

Begin

amax:=Max(n,A);

kmax:=0;

for i:= 0 to n-1 do

if A[i]=amax then kmax:=kmax+1;

Form2.Edit2.text:=inttostr(amax);

Form2.Edit3.text:=inttostr(kmax);

End;

procedure TForm1.Button6Click(Sender: TObject);

// массив из элементов, кратных "к"

var B:arr; k,kk,i:integer;

Begin

k:=StrToInt(Edit3.text); Kratn(n,A,k,B,kk);

if kk=0 then Form2.listBox2.items.Add('нет кратных')

else for i:= 0 to kk-1 do

Form2.listBox2.items.Add(IntToStr(B[i]));

B:=nil; end;

procedure TForm1.Button7Click(Sender: TObject);

// сортировка массива по возрастанию

var i:integer;

Begin

Sort(n,A);

for i:= 0 to n-1 do

Form2.listBox3.items.Add(IntToStr(A[i])) end;

procedure TForm1.Button8Click(Sender: TObject);

// освобождение памяти и выход

begin A:=nil; close end;

End.

Модуль формы Form2:

Unit Unit2;

Interface