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

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

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