Упорядочить одномерный числовой массив по возрастанию(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.
Не нашли ответ?
Похожие вопросы