26.Массив с помощью Combobox( поменять местами максимальный и минимальльный элементы)

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure Button3Click(Sender: TObject);

var

  Form1: TForm1;   i, max, min, maxi,mini:integer;

  a:array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

comboBox1.Clear;

combobox2.Clear;

combobox1.TabOrder:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

combobox1.items.add(combobox1.Text);

i:=i+1;

a[i]:=strtoint(combobox1.Text);

combobox1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

var k:integer;

begin

  max:=a[1];   maxi:=1;  min:=a[1];  mini:=1;

  for k:=2 to 10 do

     begin

       if max<a[k] then

          begin

            max:=a[k];

            maxi:=i;

          end;

       if min>a[k] then

          begin

            min:=a[k];

            mini:=i;

          end;

      end;

       a[maxi]:=min;

       a[mini]:=max;

       for k:=1 to 10 do

       combobox2.Items.Add(inttostr(a[k]));

       combobox2.DroppedDown:=true;

end;

 procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key=13 then button1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.      

 

27.Массив- найти сумму элементов на главной матрице

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure Button3Click(Sender: TObject);

var

  Form1: TForm1;   i, max, min, maxi,mini:integer;

  a:array[1..10] of integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

comboBox1.Clear;

combobox2.Clear;

combobox1.TabOrder:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

combobox1.items.add(combobox1.Text);

i:=i+1;

a[i]:=strtoint(combobox1.Text);

combobox1.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

var s,k:integer;

begin

       for k:=1 to 10 do

       combobox2.Items.Add(inttostr(a[k]));

       combobox2.DroppedDown:=true;

end;

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key=13 then button1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.