Программирование алгоритмов поиска

unit UMain; interface uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls; type
TMainForm = class(TForm)
btArrayInput: TButton;
ListBox1: TListBox;
BitBtn1: TBitBtn;
bt1: TButton; bt2: TButton;
bbClear: TBitBtn;
bt3: TButton;
procedure btArrayInputClick(Sender:
TObject);
procedure bt1Click(Sender: TObject); procedure bt2Click(Sender: TObject);
procedure bbClearClick(Sender:
TObject);
procedure bt3Click(Sender: TObject);
private
{ Private declarations } public
{ Public declarations }
end; var
MainForm: TMainForm;
M: array [1..10] of integer; implementation {$R *.DFM} procedure
TMainForm.btArrayInputClick(Sender:
TObject);
var
i: integer;
S: string; begin
for i := 1 to 10 do
M[i] := StrToInt(InputBox('Ввод данных','Введите элемент массива','')); ListBox1.Items.Add(' Исходный массив:'); S := '';
for i := 1 to 10 do
S := S + IntToStr(M[i]) + ' ';
ListBox1.Items.Add(S);
ListBox1.Items.Add('');
end; procedure TMainForm.bt1Click(Sender:
TObject);
var
K, i: Integer;
S: string;
begin K := StrToInt(InputBox(' Ввод данных', 'Введите критерий поиска:','')); S := '';
for i := 1 to 10 do
if M[i] > K then S := S + IntToStr(M[i]) + '
';
ListBox1.Items.Add(' Элементы массива больше '+IntToStr(K)+':'); ListBox1.Items.Add(S);
ListBox1.Items.Add('');
end;