Является ли последовательность возрастающей. Pascal

      Комментарии к записи Является ли последовательность возрастающей. Pascal отключены

Главная Форумы Программирование Программирование на Pascal Является ли последовательность возрастающей. Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 2 мес. назад.

  • Автор
    Сообщения
  • #3774

    Написать программу, которая проверяет, является введенная последовательность возрастающей.

    Решение:

    program arrays_8;
    uses crt;
    var
      n, i, j: integer;
      b, c: boolean;
      A: array[1..100] of integer;
    begin
      clrscr;
      randomize;
      write('Количество элементов > '); read(n);
      for i:=1 to n do
      begin
        write(i, ' элемент > '); read(A[i]);
      end;
      b:=true; c:=false;
      for i:=1 to n-1 do
      begin
        if A[i+1]<A[i] then b:=false;
        for j:=2 to n do if A[i]<>A[j] then c:=true;
      end;
      if b and c then write('Это возрастающая последовательность')
      else write('Это не возрастающая последовательность');
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.