Что значат эти пословицыКогда много чабанов- среди овец падёж
Лжец на почетное место один раз сядет, вторично его не допустят

Hars Flow Flow Flow SwiftKey Flow SwiftKey SwiftKey 6ehe6 SwiftKey Flow Henry SwiftKey Flow Flow SwiftKey SwiftKey Flow Flow SwiftKey 6ehe6 Flow SwiftKey Flow Henry SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey 6ehe6 Flow Flow SwiftKey Flow Henry SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey 6ehe6 Flow Henry Flow Flow Henry SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey 6ehe6 SwiftKey Flow Henry Flow Flow Flow SwiftKey 6ehe6 Flow SwiftKey Flow Flow Henry

737374737лохи

Рассмотрим, что делает эта программа.

 c := 0; // начальное значение счётчика

 for i := 1 to 9 do // цикл по i

   if A[i - 1] < A[i] then begin // если текущий элемент больше предыдущего

     c := c + 1; // то увеличиваем счётчик на 1

     t := A[i]; // и меняем текущий элемент местами с предыдущим

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

     A[i - 1] := t

   end;

Последние три строчки перед end - обычный алгоритм обмена значениями между двумя переменными (t = a; a = b; b = t).

Итак, моделируем, что делает программа и считаем число обменов.

0) 6 9 7 2 1 5 0 3 4 8 - исходный массив

1) 6 9 7 2 1 5 0 3 4 8 -> 9 6 7 2 1 5 0 3 4 8 ОБМЕН

2) 9 6 7 2 1 5 0 3 4 8 -> 9 7 6 2 1 5 0 3 4 8 ОБМЕН

3) 9 7 6 2 1 5 0 3 4 8 ОК

4) 9 7 6 2 1 5 0 3 4 8 ОК

5) 9 7 6 2 1 5 0 3 4 8 -> 9 7 6 2 5 1 0 3 4 8 ОБМЕН

6) 9 7 6 2 5 1 0 3 4 8 ОК

7, 8, 9) Ноль будет "всплывать" в конец, 3 ОБМЕНА

Всего будет 6 обменов, c = 6

Подробнее - на -

Объяснение: