Паскаль, возрастающая последовательность

[PRo9]

Дано n вещественных чисел. Определить, образуют ли они возрастающую последовательность.

Заранее спасибо

[Naeel Maqsudov]

Допустим числа в массиве A[1..N], и N>=2.

Код: Выделить всё

i:=1;
while (i<n) and (a[i]<a[succ(i)]) do inc(i);
if i=n {т.е. если до конца мы таки дошагали}
  then writeln('Массив упорядочен по возрастанию')
  else writeln('Массив неупорядочен. Беспорядки начинаются с элемента ',i);

[PRo9]

Спасибо огромное, а если можно полностью задачу написать?

[PRo9]

вот написал вроде програмку по твоему коду и чет не очень работает. Поправьте если можете.

program b;
var
a: array [1..n] of string;
i,n: integer;
begin
writeln('vvedite n');
readln(n);
i:=1;
while (i<n) and (a<a[succ(i)]) do inc(i);
if i=n then writeln('massiv uporadochen po vozrastaniy')
else writeln('net',i);
readln;
end.

[Naeel Maqsudov]

Код: Выделить всё

var
  i,n:integer;
  a:array[1..100] of real;
begin
  {заполнение массива исходными данными}
  write('Введите N от 2 до 100: '); readln(N);
  for i:=1 to N do begin
    write('Введите ',i,'-й элемент: '); readln(a[i]);
  end;
  {а вот теперь уже будем этот массив ковырять}
  i:=1;
  while (i<n) and (a[i]<a[succ(i)]) do inc(i);
  if i=n {т.е. если до конца мы таки дошагали}
    then writeln('Массив упорядочен по возрастанию')
      else writeln('Массив неупорядочен. Беспорядки начинаются с элемента ',i);
end.

[PRo9]

Спасибо работает. Тока как я понял если массив неупорядочен он должен показывать с какого элемента начинается беспорядок, а он просто пишет массив неупорядочен и ставит 1, т.е если даже нет единицы в последовательности он проссто её пишет

[Naeel Maqsudov]

Выводится не значение элемента, а порядковый номер элемента, после которого началась задница.

[PRo9]

А всё понял. Спасибо