Помогите пожалуйста, завтра экзамен!
С клавиатуры вводятся вещественные числа. Признак конца ввода - 0. Определить, является ли вводимая последовательность упорядоченной по невозрастанию или по неубыванию (PascalABC).

var
  a, c: boolean;
  b, b1: integer;
begin
  readln(b);
  readln(b1);
  if (b > b1) then
    a := true
  else
    if (b1 > b) then
      a := false;
  while (true) do
  begin
    readln(b1);
    if (0 in [b, b1]) then
      break;
    if a then
    begin
      if (b < b1) then
        c := true;
    end
    else
      if (b > b1) then
        c := true;
    b := b1;
  end;
  if c then
    writeln(Случайная)
  else
    if (a) then
      writeln(Невозрастающая)
    else
      writeln(Неубывающая);
end.

Само собой, должно быть минимум 2 числа в последовательности:)

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.