В окне папки можно выделять как один объект (щелчком мыши по значку), так и группу объектов, т.е. несколько объектов сразу:
для выделения несмежных объектов щелкайте на них при нажатой клавише ; для выделения смежных объектов, щелкните на первом из них, нажмите клавишу и, удерживая ее, щелкните на последнем; для выделения всех объектов – выполните команду меню Правка Выделить все либо используйте сочетание клавиш +A . Также группу объектов можно выделить протягиванием.
Чтобы снять выделение с объектов, достаточно щелкнуть в свободном месте окна папки.
Procedure TForm1.Button1Click(Sender: TObject); var i,j,k:Integer; Chislo : Integer; begin Memo1.Clear; for i := 0 to 31 do begin Chislo := 3; for j := 0 to 4 do begin if ((i and Trunc(IntPower(2,j)))=0) then Dec(Chislo) else Chislo := 3*Chislo; if (Chislo=16) then begin Memo1.Lines.Append('УРА - Нашли'); for k := 0 to j do if ((i and Trunc(IntPower(2,k)))=0) then Memo1.Lines.Append('1') else Memo1.Lines.Append('2'); Memo1.Lines.Append(''); end; end; end; end;
int min = 0, buff = 0, index;
//сначала находим min элемент
for (int i = 1; i < n; i++)
{
if (mass1[i - 1] > mass1[i])
{
min = mass1[i];
index = i;
}
}
//меняем их местами
buff = mass1[0];
mass1[0] = min;
mass1[index] = buff;
//ищем min во втором массиве
for (int i = 1; i < n; i++)
{
if (mass2[i - 1] > mass2[i])
{
min = mass2[i];
index = i;
}
}
//меняем их местами
buff = mass2[0];
mass2[0] = min;
mass2[index] = buff;
ну а дальше с библиотеками и выводом я думаю сам додумаешь)