22. Дан фрагмент программы, обрабатывающий массив А из 10 элементов: n : = 10; for i:=1 tо n do A[i] : = i; j : = 1; for i:=1 tо n-1 do if A[i] < A[i+1] then j : = j + 1; Чему будет равно значение переменной j после выполнения этого алгоритма?

Первый цикл выполнится 10 раз и в результате будет заполнен массив из 10 элементов числами от 1 до 10 (значение элемента равно индексу элемента).

Второй цикл выполнится n - 1 раз, то есть 10 - 1 = 9 раз.

В каждом цикле сравнивается текущий и следующий элемент. Элементы выстроены по возрастанию, поэтому 9 раз будет выполнено условие A[i]
Ответ: 10.

program ar;

var n, j: integer;

A: array [1 ... 10] of integer;

begin

n : = 10;

for i: integer : =1 to n do

A[i] : = i;

j : = 1;

for i: integer : = 1 to n - 1 do if A[i] < A[i + 1] then j : = j + 1;

writeln (j)

end.