Сколько байтов составит сообщение из 25 символолов 16 символьного алфавита

16 = 2^4, 1 буква = 4 бита. 4*25= 100 бит/8=12,5 байт.

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.