Var
x, x1: integer;
BreakLoop, NonDescending: Boolean;

begin
writeln(Вводите числовую последовательность);
read(x);
read(x1);
NonDescending := (x1 >= x);
repeat
read(x);
if x <> 0 then
if NonDescending then BreakLoop := (x < x1)
else BreakLoop := (x > x1);
x1 := x
until BreakLoop or (x = 0);
if BreakLoop then writeln(#13#10, Последовательность неупорядочена)
else
if NonDescending then writeln(#13#10, Последовательность неубывающая)
else writeln(#13#10, Последовательность невозрастающая)
end.

Тестовое решение
Вводите числовую последовательность
7
12
12
18
34
0

Последовательность неубывающая

Виртуальные библиотеки

Автор: 

Related Articles

Март

, членами фракции «Единая Россия» Тверской городской Думы в марте 2017г.   Дата Время 1 марта (среда)   0  

Добавить комментарий