![const n=40; var x : array [1 . . n] of integer; i: integer; t: boolean; Задача. Переменной t присвоить значение true, если элементы массива x упорядочены строго по возрастанию, и значение false иначе. Какие из представленных программ решают эту задачу?](/public/images/library/external/library-detail-hero-book.png)
Условие:
const n=40;
var x : array [1 . . n] of integer;
i: integer; t: boolean;
Задача. Переменной t присвоить значение true, если элементы массива x упорядочены строго по возрастанию, и значение false иначе.
Какие из представленных программ решают эту задачу?
...
i:=1;
repeat t:=x[i]<x[i+1]; i:=i+1
until (not t) or (i=n);
...
t:=true;
for i:=1 to n-1 do
if x[i]>=x[i+1] then t= false;
...
t:=true; i:=1;
while t do
if x[i+1]>x[i] then i:=i+1 else t= false;