Дан массив mas[1 ... 10]: = 1,3,-1,4,0,-4,-4,3,0,-4. Укажите, чему будет равно k после

выполнения алгоритма. В ответе укажите число.

k: = 1;

for i: = 9 downto 1 do

for j:=1 to i do

if mas[j] > mas[j+1] then begin

tmp: = mas[j];

mas[j]: = mas[j+1];

mas[j+1]: = tmp;

k: = k + 1;

end;

write ('k = ', k) ;

readln

Это разновидность сортировки обменом - худший её вариант с точки зрения скорости и самый простой для написания: сортировка методом пузырька. Ручной подсчет значения k - количества сделанных в процессе сортировки обменов местами элементов массива, достаточно утомителен, поэтому проще добавить необходимые операторы и выполнить программу.

Ответ: k=28