Упорядочить одномерный числовой массив по возрастанию(Pascal)

Упорядочить одномерный числовой массив по возрастанию(Pascal)
Гость
Ответ(ы) на вопрос:
Гость
uses crt; const n=10; var a: array[1..n] of integer;            i,j,k: byte; c: integer; begin   randomize;   clrscr;   writeln('исходный массив: ');   for i:=1 to n do   begin     a[i]:=random(19)-9;    write(a[i]:3);   end;  writeln;  k:=0;  for i:=1 to n-1 do   f or j:=i+1 to n do    if a[i]>a[j] then     begin       c:=a[i];       a[i]:=a[j];      a[j]:=c;       inc(k);     end;   writeln('результат сортировки: ');  for i:=1 to n do   write(a[i]:3);   writeln;   writeln('кол-во перестановок = ',k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы