Упорядочить массив по возрастанию ( по убыванию)

Упорядочить массив по возрастанию ( по убыванию)
Гость
Ответ(ы) на вопрос:
Гость
Сортировка по возрастанию: const n=20;  var   a:array[1..n] of integer;   i,j,t:integer; begin   Randomize;   Writeln('Исходный массив:');   for i:=1 to n do begin     a[i]:=Random(51)-25;     Write(a[i],' ')   end;   Writeln;   for i:=1 to n-1 do     for j:=1 to n-i do       if a[j]>a[j+1] then       begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;   Writeln('Отсортированный массив:');   for i:=1 to n do Write(a[i],' ');   Writeln end. Пример: Исходный массив: 18 2 16 17 -14 -15 -18 -18 9 -5 -4 -9 -7 12 24 16 11 15 -24 22  Отсортированный массив: -24 -18 -18 -15 -14 -9 -7 -5 -4 2 9 11 12 15 16 16 17 18 22 24 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы