Задачи на массив 1) Create an array of 7 integer elements and fill it with the number 0 (Создайте массив из 7 целых элементов и заполните его числом 0)

2) Create an array of 10 integer elements and fill it with the squares of the loop parameter values (Создайте массив из 10 целых элементов и заполните его квадратами значений параметра цикла)

3) Create an array of 15 integer elements and fill it with random numbers from 5 to 30 (Создайте массив из 15 целых элементов и заполните его случайными числами от 5 до 30)

Выделение объектов в окне папки

В окне папки можно выделять как один объект (щелчком мыши по значку), так и группу объектов, т.е. несколько объектов сразу:

для выделения несмежных объектов щелкайте на них при нажатой клавише ;
для выделения смежных объектов, щелкните на первом из них, нажмите клавишу и, удерживая ее, щелкните на последнем;
для выделения всех объектов – выполните команду меню Правка Выделить все либо используйте сочетание клавиш +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;