profile
Опубликовано 6 лет назад по предмету Информатика от Клеврет

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

  1. Ответ
    Ответ дан MrMiner1

    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;

    1. Ответ
      Ответ дан csharp
      1
      2
      Поседовательность убывающая
    2. Ответ
      Ответ дан MrMiner1
      ну в 1 примере вашем все понятно, это верно (2 1 0 - убывающая)
    3. Ответ
      Ответ дан MrMiner1
      а второй пример - это не последовательность
    4. Ответ
      Ответ дан MrMiner1
      там всего 1 число
    5. Ответ
      Ответ дан csharp
      Извиняюсь, затупил.
Самые новые вопросы