Задание

В программе используется одномерный целочисленный массив A с индексами от 1 до 10. Значения элементов равны 5, 4, 8, 6, 5, 1, 4, 8, 3, 4 соответственно, т.е. A[1] = 5, A[2] = 4 и т.д. Определите значение переменной x после выполнения следующего фрагмента этой программы:

Pascal:

x := 0;

for i := 2 to 10 do

if A[i] < A[1] then begin

x := x + 1;

k := A[i];

A[i] := A[1];

A[1] := k;

end;