for i:=1 to 19 do
for j:=i+1 to 20 do
if x[i]>=x[j] then
begin
r:=x[i]; x[i]:=x[j]; x[j]:=r
end;
writeln('Сортировка массива по возрастанию произведена:');
for i:=1 to 20 do writeln(x[i]);
writeln('Для выхода введите любое число.');
readln(q);
end.
Список литературы
Львовский М.Б. Методическое пособие «BOOK» по информатике для 9-11 классов.