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

c := 0;

for i := 1 to 9 do

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

t:= A[i];

A[i]:= A[i - 1];

A[i-1]:= t

end

else

c:= c + 1;