Массив целых чисел

[MurkyMargosha]

Никогда толком не понимала паскаль.. вроде не сложная задачка, а сделать не получается(
Дан массив целых чисел{ai} (i=1, 2, …,n). Написать программу, проверки упорядочены ли значения компонентов массива по убыванию

[Serge_Bliznykov]

такое решение устроит?

var  A: array[1..N] of integer;
  i : integer;
  isArrayOrdered : boolean;
begin
  // заполнение массива...

{проверим на упорядоченность в порядке убывания}
 isArrayOrdered := true;
 i:=1;
 while isArrayOrdered and (i<N) do 
    if A[i]<=A[i+1] then  isArrayOrdered := false
    else Inc(i);

 if isArrayOrdered then WriteLn('Упорядочены значения по убыванию')
 else WriteLn('Нет, не упорядочены')
end.

[MurkyMargosha]

Да, спасибо))