var a:array[1..1000] of integer;
n,m,i,j,k,jmx,x:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
m:=0;{количество отсортированных}
i:=1;{начало массива}
while i<n do {пока не конец - 1 }
begin
jmx:=1; {пусть это пока индекс максимума}
for j:=1 to n-m do{с начала до уже выставленного на место максимума}
if a[j]>a[jmx] then jmx:=j;{находим индекс самого макс.}
x:=a[jmx];{запомним значение}
for k:=jmx to n-m-1 do {сдвинем на него все не отсортированные элементы}
a[k]:=a[k+1];
a[n-m]:=x;{вставим очередной максимум на место}
m:=m+1; {увеличим количество отсортированных}
i:=i+1; {идем вперед}
end;
for i:=1 to n do
write(a[i]:4);
end.
Объяснение:
Сортировка массива по убыванию
Объяснение:
type
massiv = array [1..10] of integer;
var
mass : massiv;
i , j , n , b: integer;
begin
randomize;
write('Введите длину массива : ');readln(n);
for i:=1 to n do
begin
mass[i] := random(10);
write(mass[i], ' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (mass[j] < mass[j+1]) then
begin
b := mass[j];
mass[j] := mass[j+1];
mass[j+1] := b;
end;
end;
writeln;
for i:=1 to n do
write(mass[i], ' ');
readln;
end.
16 = 2^4, 1 буква = 4 бита. 4*25= 100 бит/8=12,5 байт.