Maxel(k,b,bmax,imax); minel(k,b,bmin,imin);

Label9.Caption:='Максимальный элемент

вектора='+IntToStr(bmax);

Label10.Caption:='Его номер='+IntToStr(imax);

Label11.Caption:='Минимальный

элемент вектора='+IntToStr(bmin);

Label12.Caption:='Его номер='+IntToStr(imin);

if imax>imin then begin nom:=imin+1; k:=imax-imin-1

End

else begin nom:=imax+1; k:=imin-imax-1

End;

b:=copy(b,nom,k);

for i:=0 to k-1 do

Edit5.text:=Edit5.text+' '+IntToStr(b[i]);

a:=nil; b:=nil; end;

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

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

Внимание! Общие ресурсы для всех процедур Unit1 объявлены в этом модуле. Поэтому необходимо модуль UnitPP подключить к Unit1.

Uses

Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, Grids,UnitPP;

Unit UnitPP;

Interface

type vec=array of integer; matr=array of vec;

var a:matr; m,n:integer;

procedure maxel(n:integer;x:vec;var max,imax:integer);

procedure minel(n:integer;x:vec;var min,imin:integer);

Implementation

Procedure maxel;

var i:integer;

begin max:=x[0]; imax:=0;

for i:=0 to n-1 do

if x[i]>max then begin max:=x[i];imax:=i end

End;

Procedure minel;

var i:integer;

begin min:=x[0]; imin:=0;

for i:=0 to n-1 do

if x[i]<min then begin min:=x[i];imin:=i end

End;

End.

Сценарий работы программы:

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

2. В поле Edit1 ввести значение m;

3. В поле Edit2 ввести значение n;

4. В поле Edit3 ввести построчно элементов матрицы, разделитель элементов пробел;

5. Нажать кнопку “ Ввод ”;

6. Нажать кнопку “ Вывод ”;

7. Нажать кнопку “ Расчет ”;

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

9. Для завершения обработки матрицы нажмите “ Выход ”;

Результат обработки матрицы ():