Сортировка массивов по возрастанию и по убыванию. массив задается от датчика случайных чисел сортировать один и тот же исходный массив и по убыванию и по возрастанию значений элементов.
Var i,j,p :integer; a:array[1..10] of integer; begin for i:=1 to 10 do begin a[i]:=random(20)+1; writeln(a[i]); end; writeln('Массив по возрастанию'); for i:=1 to 10 do for j:=1 to 10 do begin if a[i]<a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end; for i:=1 to 10 do writeln(a[i]); writeln('Массив по убыванию'); for i:=1 to 10 do for j:=1 to 10 do begin if a[i]>a[j] then begin p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end; for i:=1 to 10 do writeln(a[i]); readln;end.
begin
for i:=1 to 10 do
begin
a[i]:=random(20)+1;
writeln(a[i]);
end;
writeln('Массив по возрастанию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]<a[j] then begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;end;
for i:=1 to 10 do
writeln(a[i]);
writeln('Массив по убыванию');
for i:=1 to 10 do
for j:=1 to 10 do begin
if a[i]>a[j] then begin
p:=a[i]; a[i]:=a[j]; a[j]:=p; end;end;
for i:=1 to 10 do writeln(a[i]);
readln;end.