доминион <span>соответствует </span><em>код</em><span> x0:$=+0</span>
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
<u>Примеры</u>
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True
СМОТРИТЕ РЕШЕНИЕ НА ПРИКРЕПЛЁННОМ ФАЙЛЕ
000100000
000110000
000101000
000100100
000100100
000101000
111111111
010000010
001111100