s := 0; (начальное значение счётчика)
for i := 1 to 9 do (цикл по i)
if A[i - 1] < A[i] then begin (если текущий элемент больше предыдущего,
s := s + 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 обменов, s = 6.
ответ: 6
Собирается-журналист опрашивает людей для статьи
Обрабатывается-ученик решает задачу
Упрощается-учитель объясняет материал
Создается-все тот же журналист придумывает статью
Запоминается-парнеь запоминает номер телефона девушки
Измеряется-программист рассчитывает сколько бит займет программа
Копируется-ученик списывает у одноклассника
Передается-две девушки обмениваются новостями
Принимается-ученики слушают учителя на уроке
Разрушается-придуманная выше указанным журналистом статья опровергается...
Делится на части-человек разбирает сообщение в котором пропущены пробелы
Ищется-человек ищет материал для доклада в интернете
