Girilen dizideki elemanları büyükten küçüğe sıralayıp bunların dizideki yerlerini yazdıran ve kaç kere döndüğünü yazan bir program.

program buyuk_siralama(input,output);
var
i,j,k,n,s: integer;
d:array[1..100] of integer;
begin
write('Dizinin Eleman Sayisini Yaziniz:');
readln(n);
writeln('Dizinin Elemanlarini Giriniz:');
for i:=1 to n do begin
readln(d[i]);
end;
for i:=1 to n-1 do begin
for j:=i+1 to n do begin
if(d[i]<d[j])then begin
k:=d[i];
d[i]:=d[j];
d[j]:= k;
s:=s+1;
end;
end;
end;
for i:=1 to n do begin
writeln ('d[',i,']= ',d[i]);
end;
write('Dongu Sayisi=',s);
readln;
end.