Const m=200;
var a: array[1..m] of integer;
i,j,n: integer;
begin
write('количество элементов массива: ');
readln(n);
randomize;
write('массив: ');
for i:=1 to n do
begin
a[i]:=random(40);
write(a[i],' ');
end;
writeln;
write('отсортированный массив: ');
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then swap(a[i],a[j]);
for i:=1 to n do write(a[i],' ');
end.
количество элементов массива: 10
массив: 32 2 10 22 2 13 25 6 15 6
отсортированный массив: 2 2 6 6 10 13 15 22 25 32