Question

Сделать проверку упорядоченности элементов одномерного массива по убыванию их значений.

Answer 1

Const
  n = 10;

var
  a: array[1..n] of integer := (1, 2, 3, 6, 4, 5, 9, 7, 8, 10);
  i: integer;

begin
  i := 0;
  repeat
    i := i + 1
  until (i = n) or (a[i] > a[i + 1]);
  if a[i] > a[i + 1] then
    Writeln('Нарушение на элементах ', i, ',', i + 1, ': ', a[i], '>', a[i + 1])
end.

Тестовое решение:
Нарушение на элементах 4,5: 6>4

Answer 2

Уж сколько раз твердили миру... чтобы языки указывали ._. Ну, ниже представлен пример для PascalABC

var
  a: array of integer := (9, 8, 7, 6, 7, 4, 3, 2, 1, 0);
  i: byte;
  b: boolean := true;

begin
  for i := 1 to length(a) - 1 do
    if (a[i] > a[i-1]) then
      b := false;
  writeln(b);
end.

Answer 3

Конечно, для проверки упорядоченности элементов одномерного массива по убыванию их значений можно использовать различные алгоритмы сортировки, такие как сортировка пузырьком, сортировка вставками или быстрая сортировка. Давай я покажу пример на Python с использованием встроенной функции сортировки `sorted()` для проверки упорядоченности массива:

# Функция для проверки упорядоченности массива по убыванию
def is_sorted_descending(arr):
    sorted_arr = sorted(arr, reverse=True)  # Сортируем массив по убыванию
    return arr == sorted_arr  # Проверяем, соответствует ли исходный массив упорядоченному по убыванию

# Пример массива
arr = [10, 8, 6, 4, 2]

# Проверяем упорядоченность по убыванию
if is_sorted_descending(arr):
    print("Массив упорядочен по убыванию")
else:
    print("Массив не упорядочен по убыванию")

Этот код использует функцию `is_sorted_descending`, которая принимает массив `arr`, сортирует его в порядке убывания с помощью `sorted(arr, reverse=True)` и затем сравнивает исходный массив с упорядоченным по убыванию. Если они совпадают, значит, массив уже упорядочен по убыванию.

Если массив упорядочен по убыванию, программа выведет "Массив упорядочен по убыванию", в противном случае выведет "Массив не упорядочен по убыванию".