Массив: Строку с наименьшей суммой элементов поменять местами со столбцом, имеющим тот же номер - Delphi - Ответ 4228062

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    UpDown1: TUpDown;
    Edit1: TEdit;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Label1: TLabel;
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure RadioGroup1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure Numerac;
var n,i:integer;
begin
n:=StrToInt(Form1.Edit1.Text);
 for i:=1 to n do begin
   Form1.StringGrid1.cells[i,0]:=IntToStr(i+1);
  end;
  Form1.StringGrid1.cells[n,0]:='Sum';
 
end;
 
 
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var n,i:integer;
begin
 
 with StringGrid1 do                     //отчистка таблицы
    for i:=1 to ColCount do
    Cols[i].Clear;
  with StringGrid1 do                     //отчистка таблицы
    for i:=1 to RowCount do
    Rows[i].Clear;
 
n:=StrToInt(Edit1.Text);                 //размер таблицы
StringGrid1.ColCount:=n+2;
StringGrid1.RowCount:=n+2;
 
Numerac;
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
var i,n,y:Integer;
begin
n:=StrToInt(Edit1.Text);
 Randomize;                                //рандом
 if RadioGroup1.ItemIndex=1                //если отмечен 1, то
  then begin
   for i :=1 to n-1 do
   for y :=1 to n do
     begin
      StringGrid1.Cells[i,y]:= IntToStr(Random(50));
     end;
  end
  else
   begin
    with StringGrid1 do
    for i:=1 to ColCount-1 do
    Cols[i].Clear;                              //отчистка таблицы
   end;
 
 Numerac;
end;
 
 
 
procedure TForm1.FormActivate(Sender: TObject);
begin
 Numerac;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var c,r:Integer;  //номер колонки и строки таблицы
  s:Integer;    //всего медалей у команды
  i,j,y:Integer;    //номер строки. используется во время сортировки
  n:Integer;
  min:integer;
   ar:array[1..10] of Integer;
begin
  n:=StrToInt(Edit1.Text);
   for r:=1 to StringGrid1.rowcount do
  begin
     s:=0;
    for c:=1 to n do
 
      if StringGrid1.Cells[c,r] <> ''then
        s:=s+StrToInt(StringGrid1.Cells[c,r])
      else
        StringGrid1.Cells[c,r]:='0';
     StringGrid1.cells[n,r]:=IntToStr(s);
     s:=0;
  end;
 
 
  for i :=1 to n do
  ar[i]:=StrToInt(StringGrid1.Cells[n,i]);
 
  min:=1;
  for i:=2 to n do
    if ar[i]<ar[min] then min:=i;
  Label1.Caption:='Минимальный элемент массива: '
                  +IntToStr(ar[min])+#13+
                   'Номер элемента: '+IntToStr(min);
 
 
 
 
end;
 
end.