const n=40; var x: array [1..n] of integer; i: integer; t: boolean; Задача. Переменной t присвоить значение true, если элементы массива x упорядочены строго по возрастанию, и значение false иначе. Какие из представленных программ ре
pascal
program CheckArrayOrder;
const
n = 40;
var
x: array [1..n] of integer;
i: integer;
t: boolean;
begin
// Заполним массив случайными числами
randomize;
for i := 1 to n do
x[i] := random(100); // Генерируем случайные числа от 0 до 99
// Проверяем упорядоченность массива
t := true;
i := 2;
while (i <= n) and t do
begin
if x[i] <= x[i-1] then
t := false;
i := i + 1;
end;
// Выводим результат
writeln('Массив отсортирован по возрастанию: ', t);
end.
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет