Пожалуйста посчитайте пожалуйста.В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 4; 1; 3; 8; 9; 9; 8; 8; 7; 9 соответственно, т.е. A[0] = 4; A[1] = 1 и т.д. Определите значение переменной 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;