Списки (требуется доработка)

[Greblin]

Количество перестановок. Вот в этот кусок

x:=a[i];
a[i]:=a[m];
a[m]:=x;

добавьте увеличение какого нибудь глобального счётчика. Кстати обычно все эти три присваивания считаются одной перестановкой.
Не совсем понял что имеется ввиду под количеством проходов сортировки. Если количество итераций цикла, то надо в цикле тоже увеличивать другой счётчик. Хотя тут не понятно, оба цикла учитывать или только один. А если сложность алгоритма, то она O(n^2)
Щёлкнуть на рисунок весов в низу столбца с моей аватаркой

[Mariya2009]

вставляю далее четвертой строкой
код s1:=s1+1;
и вывожу в лабел , выводит номера переставляемых элементов(1984816316), вывод прописываю после vivod(a);

[Greblin]

Ничё не понял, напиши код полностью

[Mariya2009]

место где были изменения:

procedure TForm1.Button2Click(Sender: TObject);
Var x,i,j,m,N,s1:integer;
begin
N := 10;
for i:=1 to N-1 do //ïåðåáîð ýëåìåíòîâ âûõîäíîãî ìíîæåñòâà
// âõîäíîå ìíîæåñòâî - [i:N]; âûõîäíîå - [1:i-1]
begin
m:=i;
for j:=i+1 to N do// ïîèñê ìèíèìóìà âî âõîäíîì ìíîæåñòâå
if(a[j]<a[m]) then m:=j;
//îáìåí 1-ãî ýëåìåíòà âõ.ìíîæåñòâà ñ ìèíèìàëüíûì
if i<>m then begin
x:=a[i];
a[i]:=a[m];
a[m]:=x;
s1:=s1+1;//прписала счетчик
end;
end;
vivod(a);
label3.Caption:='Перестановок '+inttostr(s1);//вывод счетчика при кот он выдает 1984816316!!!!!!!!!!
end;

непонятно как так?

[Greblin]

У вас та же ошибка, что и в первом случае: переменной s1 не задано начальное значение 0. То есть в ячейке памяти, которая соответствует s1, будет непонятно что, оставшееся от выполнения других программ. Всегда задавайте начальное значение счётчиков, размеров массивов и т.п.

N := 10;
s1 := 0;

[Mariya2009]

вы мне очень помогли спасибо большущее пребольшущее