Uses Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls;

Type

TForm2 = class(TForm)

Label1: TLabel; ListBox1: TListBox;

Label2: TLabel; Edit1: TEdit;

Label3: TLabel; Edit2: TEdit;

Label4: TLabel; Edit3: TEdit;

Label5: TLabel; Label6: TLabel;

ListBox2: TListBox; Label7: TLabel;

ListBox3: TListBox;

private { Private declarations }

public { Public declarations } end;

Var

Form2: TForm2;

Implementation

{$R *.DFM}

End.

Модуль без формы с подпрограммами

для использования из приложения:

Unit Mas_PP;

Interface

Type arr=Array of Integer;

Function Sum(n:integer;A:arr):integer;

Function Max(n:integer;A:arr):integer;

ProcedureKratn(n:integer;A:arr;k:integer;var B:arr;

var kk:integer);

Procedure Sort(n:integer;var A:arr);

Implementation

Function Sum;

Var S,i:integer;

Begin

S:=0; For i:=0 to n-1 do S:=S+A[i]; Sum:=S

End;

Function Max;

var amax,i:integer;

begin amax:=A[0];

for i:=0 to n-1 do

if A[i]>amax then amax:=A[i];

Max:=amax; end;

Procedure Kratn;

Var i:integer;

Begin kk:=0;

for i:=0 to n-1 do if A[i] mod k =0 then

Begin

SetLength(B,kk+1);

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

End;

Procedure Sort;

var i,k,x:integer;

Begin

for i:=0 to n-2 do

for k:=i downto 0 do

if A[k]>A[k+1] then

begin x:=A[k];A[k]:=A[k+1];A[k+1]:=x end;

End;

End.

Сценарий выполнения программы:

1. Запустить программу (Run);

2. На форме Form1 ввести в поле Edit1 значение n – количество элементов массива;

3. В поле Edit2 ввести “n” элементов массива целого типа;

4. Нажать кнопки: “ Ввод массива ”; “ Вывод масс ива”; “ Сумма ”; “ Максимальный элемент ”;

5. В поле Edit3 ввести значение “k” – коэффициент кратности;

6. Нажать кнопки: “Кратность”; “Сортировка”; “Показ Form2”;

7. Просмотреть и проанализировать результаты;

8. Активизировать форму From1 и нажать кнопку “ Освобождение памяти и выход ”;

Ниже приведены вид формы Form1 после выполнения пунктов 2, 3, 4, 5:

и вид формы Form2 после нажатия кнопки “ Показ From2 ”: