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;