Question

Сделать две программы сортировки (возрастание и убывание)

Пожалуйста)))!!!!!!!!!!!!1!11111111!!!!11!!!!!

Answer 1

Возрастание:

const n=10;

var a:array [1..n] of integer;

i,j,v:integer;

begin

write('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i],'  ')

end;

writeln;

for i:=1 to n do

for j:=1 to n-i do

if a[j]>a[j+1] then

begin

v:=a[j];

a[j]:=a[j+1];

a[j+1]:=v

end;

write('Отсортированный массив: ');

for i:=1 to n do write(a[i],'  ');

end.

Убывание:

const n=10;

var a:array [1..n] of integer;

i,j,v:integer;

begin

write('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i],'  ')

end;

writeln;

for i:=1 to n do

for j:=1 to n-i do

if a[j]<a[j+1] then

begin

v:=a[j];

a[j]:=a[j+1];

a[j+1]:=v

end;

write('Отсортированный массив: ');

for i:=1 to n do write(a[i],'  ');

end.