Задать вопрос Регистрация
Помочь другим

  • Ребяяяят, помогите пожалуйста. ОЧЕНЬ СРОЧНО НУЖНО!!! 

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

Ответы 1

  • const nn=100;vara:array [1..nn] of real;i,n,k:integer;beginwrite('N= ');readln(n);for i:= 1 to n do readln(a[i]);i:=1;k:=0;while (k=0) and (i<n) do  begin    if a[i]>a[i+1] then k:=1;    i:=i+1;  end;if k=0 then writeln('Последовательность возрастающая')        else writeln('Последовательность не возрастающая');end.

    • Автор:

      robin
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years