ТЕМА: « Работа с компонентами – списки TListBox и TComboBox при обработке линейных массивов »

На форме вводится массив целых чисел через диалоговое окно и отображается в компонент –список. Отобрать в новый список из массива элементы, которые представляют собой чётные, положительные и кратные 5 числа. Напечатать эти элементы и их номера в последовательности. Вывести их количество, и сообщение, если таких чисел нет

unit Unit2;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var n,k1,k2:byte; i:integer;

begin

n:=StrToInt(E1.Text);

for i:=0 to n-1 do begin

LB1.Items.Add(InputBox('ввод','введите '+IntToStr(i+1)+' число',' '));

end;

k1:=0;

for i:=0 to n-1 do

if strtoint(LB1.Items[i]) mod 2 = 0 then

begin

LB2.Items.Add(LB1.Items[i]);

LB4.Items.Add(inttostr(i+1));

inc(k1);

end;

if k1=0 then L3.Caption:='чётных нет' else L1.Caption:=IntToStr(k1);

k2:=0;

for i:=0 to n-1 do

if strtoint(LB1.Items[i]) mod 5 = 0 then

begin

LB3.Items.Add(LB1.Items[i]);

LB5.Items.Add(inttostr(i+1));

inc(k2);

end;

if k2=0 then L4.Caption:='кратных нет' else L2.Caption:=IntToStr(k2);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

LB1.Clear;

LB2.Clear;

LB3.Clear;

LB4.Clear;

LB5.Clear;

L1.Caption:=' ';

L2.Caption:=' ';

L3.Caption:=' ';

L4.Caption:=' ';

end;

end.