Здравствуйте! я написала программу сортировки одномерного массива простым обменом. Проверила в ее работоспособности, массив выводится в правильной последовательности чисел,но бесконечное число раз. Буду рада,если Вы покажете причину и дадите совет,как устранить проблему (или сами поправите код с комментарием).Привожу саму программу:
Код:
program sortirovka1;
uses crt;
var
a: array [0..99] of integer;
i, j,n,k,x,f,g: integer;
begin
clrscr;
writeln('Danna programma sortiryet massiv prostum obmenom.');
writeln('******************************');
writeln('Vvedite chislo zifr massiva n=');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(10);
for i:=1 to n do
begin
for i:=1 to n do
inc(k);
for i:=1 to n do
write(a[i]);
writeln;
{-- algoritm sortirovki --}
for i:=n downto 2 do
for j:=1 to i-1 do
if a[j]>a[j+1]
then
begin
f:=a[j];
a[j]:=a[j+1];
a[j+1]:=f;
end;
end;
writeln('Otsortirovannui massiv: ');
while (i<n) and (i>0) do
{-- for i:=n downto 1 do--}
write(a[i]);
readln;
end.