Задание
Pascal:
x := 0;
for i := 2 to 10 do
if A
x := x + 1;
k := A
A
A
end;
В программе используется одномерный целочисленный массив 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 beginx := x + 1;
k := A
\[i\]
;A
\[i\]
:= A\[1\]
;A
\[1\]
:= k;end;