1.что служит для отображения основных элементов графического интерфэйс ? 2. что обозначает компьютерный объект ? 3. что обеспечивать доступ ко всей информации, который хранится на компьютере ? 4. что обозначает ссылку на компьютерный объект ? 5. что служит для обеспечения быстрого запуска
программы доступа ко всем открытым окном ? варианты ответа : мой компьютер ,панель ,рабочий стол,значок ,ярлык

Берём два арбеза и взвешиваем. Сиавим по возрастанию веса. Например с права на лево. Берём третий арбуз и взвешиваем с самым правым из взвешанных. Если легче, стави ещё правей его, если тяжелей, взвешиваем с левым арбузом. Если легче, ставим посередине, тяжелей - слева. Берём четвёртый арбуз. Взвешиваем с средним. Если легче, взвешиваем с правым арбезом, если легче и этого, ставим правей, если тяжелей - между средним и правым. Если оказался тяжелей среднего, взвешиваем с левым. Если тяжелей левого - ставим в самое лево, если легче - между левым и средним. Максимально должно пять взвешиваний получиться

Const
  N = 30;

var
  a: array [1..N] of integer;
  i, nel, x: integer;

begin
  writeln('Введите элементы массива');
  for i := 1 to N do read(a[i]);
  writeln('введите Х');
  readln(x);
  nel := 0;  // номер найденного элемента
  i := 1;
  while (i <= n) and (nel = 0) do
  begin
    if a[i] = x then nel := i;
    i := i + 1
  end;
  if nel > 0 then
    writeln('Номер элемента ', nel)
  else
    writeln('Не найден элемент, удовлетворяющий условию')
end.

Тестовый пример:

Введите элементы массива
1 3 6 8 4 9 14 -4 7 45 4 8 0 23 63 253 23 453 54 20 54 12 -56 3 0 -34 28 27 90 23
введите Х
0
Номер элемента 13