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

Уж сколько раз твердили миру... чтобы языки указывали ._. Ну, ниже представлен пример для 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.

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