Question

В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 6; 9; 7; 2; 1; 5; 0; 3; 4; 8 соответственно, т.е. A[0] = 6; A[1] = 9 и т.д.
Определите значение переменной c после выполнения следующего фрагмента программы, записанного ниже на разных языках программирования. Распечатать значения массива в строку.
c := 0;
for i := 1 to 9 do
if A[i-1] < A[i] then begin
c := c + 1;
t := A[i];
A[i] := A[i-1];
A[i-1] := t
end;

Answer 1

массив: 6; 9; 7; 2; 1; 5; 0; 3; 4; 8 
c = 0
i = 1; 6<9 ⇒ true; c = 1; массив: 9; 6; 7; 2; 1; 5; 0; 3; 4; 8 
i = 2; 6<7 ⇒ true; c = 2; массив: 9; 7; 6; 2; 1; 5; 0; 3; 4; 8 
i = 3; 6<2 ⇒ false;
i = 4; 2<1 ⇒ false;
i = 5; 1<5 ⇒ true; c = 3; массив: 9; 7; 6; 2; 5; 1; 0; 3; 4; 8 
i = 6; 1<0 ⇒ false;
i = 7; 0<3 ⇒ true; c = 4; массив: 9; 7; 6; 2; 5; 1; 3; 0; 4; 8 
i = 8; 0<4 ⇒ true; c = 5; массив: 9; 7; 6; 2; 5; 1; 3; 4; 0; 8 
i = 9; 0<3 ⇒ true; c = 6; массив: 9; 7; 6; 2; 5; 1; 3; 4; 8; 0