динамический массив

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Minandmax;
    procedure Sunchet;
    procedure Chislo;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Ar:array of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(Ar,Length(Ar)+1);
Ar[Length(Ar)-1]:=strtoint(Edit1.Text);
end;
 
procedure TForm1.Minandmax;
var i,mi,ma:integer;
begin
  mi:=Ar[0];
  ma:=Ar[0];
  for i:=0 to Length(Ar)-1 do
    begin
      if Ar[i]>ma then ma:=Ar[i];
      if Ar[i]<mi then mi:=Ar[i];
    end;
  ShowMessage('Min*Max='+inttostr(mi*ma));
end;
 
procedure TForm1.Sunchet;
var i,ma:integer;
begin
  ma:=0;
   for i:=0 to Length(Ar)-1 do
    begin
      if Ar[i] mod 2=0 then ma:=ma+Ar[i];
    end;
  ShowMessage('Sum='+inttostr(ma));
end;
 
procedure TForm1.Chislo;
var i,ma,ch:integer;
sr:real;
begin
  ma:=0;
   for i:=0 to Length(Ar)-1 do
    begin
     ma:=ma+Ar[i];
    end;
   sr:=ma/Length(Ar);
   ch:=Ar[0];
   for i:=0 to Length(Ar)-1 do
    begin
     if (int(Ar[i])<sr ) and (Ar[i]>ch) then
      begin
        ch:= Ar[i];
      end;
    end;
  ShowMessage('Chislo='+inttostr(ch));
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
  0: Minandmax;
  1: Sunchet;
  2: Chislo;
end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 SetLength(Ar,0);
end;
 
end.