Для решения предложенных задач на языке программирования Паскаль мы можем использовать простые алгоритмы, основанные на переборе элементов массива. Рассмотрим каждую задачу по отдельности.

Алгоритм для решения первой задачи можно описать следующим образом:

1. Создать массив из 20 целых чисел.
2. Ввести значения массива с клавиатуры.
3. Инициализировать переменную-счетчик, например, count, равной 0.
4. Пройтись по массиву в цикле от 1 до 19 (включительно), сравнивая каждую пару подряд идущих элементов:
• Если оба элемента (текущий и предыдущий) делятся на 3, увеличить счетчик count на 1.
5. После завершения цикла вывести значение счетчика count.

Пример кода на Паскале:

var
  arr: array[1..20] of integer;
  count, i: integer;
begin
  count := 0;

  // Ввод элементов массива
  for i := 1 to 20 do
  begin
    read(arr[i]);
  end;

  // Подсчет пар подряд идущих элементов, делящихся на 3
  for i := 2 to 20 do
  begin
    if (arr[i-1] mod 3 = 0) and (arr[i] mod 3 = 0) then
      count := count + 1;
  end;

  // Вывод результата
  writeln('Количество пар подряд идущих элементов, которые делятся на 3: ', count);
end.

Для решения второй задачи алгоритм будет следующим:

1. Создать массив из 20 целых чисел.
2. Ввести значения массива с клавиатуры.
3. Инициализировать переменную maxElement значением, меньшим, чем минимально возможное значение в массиве (например, -10000).
4. Пройтись по массиву в цикле:
• Если элемент массива делится на 11 и больше текущего значения maxElement, обновить maxElement этим элементом.
5. После завершения цикла вывести значение maxElement.

Пример кода на Паскале:

var
  arr: array[1..20] of integer;
  maxElement, i: integer;
begin
  maxElement := -10000; // Начальное значение

  // Ввод элементов массива
  for i := 1 to 20 do
  begin
    read(arr[i]);
  end;

  // Поиск максимального элемента, делящегося на 11
  for i := 1 to 20 do
  begin
    if (arr[i] mod 11 = 0) and (arr[i] > maxElement) then
      maxElement := arr[i];
  end;

  // Вывод результата
  writeln('Максимальный элемент, который делится на 11: ', maxElement);
end.

Таким образом, предложенные алгоритмы позволяют эффективно решать поставленные задачи, используя базовые операции работы с массивами и условиями в языке Паскаль.