Нахождение числа, стоящего не на своем месте

[yarovik]

В диапазоне убывающих чисел найти число, стоящее не на своем месте (указать номер позиции числа). Программа должна быть написана на Pascal ABC

[Poma][a]

Показывайте, как вводите последовательность

[Kostia]

program myprog;
const N = 10;
var
   a: array[1..N] of integer;
   i: integer;
begin
   cls;
   randomize;
   for i:=1 to N do
     a[i] := N - i + 1;
   a[random(N)+1] := random(10);
   for i:=1 to N do
     write(a[i],' ');
   writeln;
   for i:=1 to N-1 do
     if a[i] < a[i+1] then
     begin
       writeln('Элемент ',i,' стоит не на своем месте!');
       break;
     end;
   writeln('Конец программы.');
end.

[yarovik]

Сообщение от Poma][a

Показывайте, как вводите последовательность

Например:
150 140 120 130 110 (120 стоит не на своем месте, номер позиции 3)

[yarovik]

Большое спасибо!!!

[Poma][a]

Например:
150 140 120 130 110 (120 стоит не на своем месте, номер позиции 3)

ой не могу, умора

Kostia, а Вы кое-что в uses забыли

[Mad_Cat]

вариант без

break;

i:=1;
while (a[i]>a[i+1]) and (i<n)do
 inc(i);
if i<>n then 
 writeln('Элемент ',i+1,' стоит не на своем месте!');

[Sciv]

150 140 120 130 110 (120 стоит не на своем месте, номер позиции 3)

А че не стотрицать?

Например, тут: 150 140 120 110 130 - приведенный код выдаст ошибку, так как укажет на элемент №4 (110)

UPDATE Имелся в виду код made by Kostia. Mad_Cat совершенно верно поправку внес.