Одномерный массив

[Alexxxxxxx]

Переменной X присвоить 1 , если элементы массивы B(40) образуют возрастающую последовательность и значение 0 в противном случае . Помогите плз !!!
В паскале надо решить)))

 

[AlexZir]

Примерный алгоритм решения:
заполняете исходный массив, обнуляете переменную X, в цикле анализируем текущий и следующий элементы, причем цикл от 0 до 39, а не до 40 (чтобы не было ошибки). Анализ следующий: если текущий элемент меньше следующего, то X:=1, иначе X:=0. По окончании цикла выводите текущее значение переменной X.

 

[Rossomaxa]

Я бы задал значение переменной до начвла цикла как 1, а в цикле в случае, если очередное значение несоответствует, менял его на 0 и выходил из цикла

 

[AlexZir]

А кто мешает при 0 прервать выполнение цикла? Вообще, сколько программистов - столько и решений, и каждое будет с точки зрения автора единственно верным )

 

[Rossomaxa]

Не зря же програмный код приравнивается к творческому произведению :tehnari_ru_203: