Ответ: 12Поседовательность убывающая
Ответ: ну в 1 примере вашем все понятно, это верно (2 1 0 — убывающая)
Ответ: а второй пример — это не последовательность
Ответ: там всего 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;