Question

Вводится последовательность из N целых чисел. Является ли последовательность убывающей? Выполните задачу на Pascal без использования массивов.

Answer 1

Program n_1;

var a, b, i, n: integer; c: boolean;

begin

   c:=true;

   read(n, a);

   for i:=2 to n do begin

       read(b);

       if b>=a then c:=false;

       a:=b;

   end;

   if (c=true) then writeln('Поседовательность убывающая')

   else writeln('Поседовательность не является убывающей');

end.

Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;

Answer 2

1
2
Поседовательность убывающая

Answer 3

ну в 1 примере вашем все понятно, это верно (2 1 0 - убывающая)

Answer 4

а второй пример - это не последовательность

Answer 5

там всего 1 число

Answer 6

Извиняюсь, затупил.