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 ”: