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.

Самые новые вопросы