программа линейной сортировки символьного массива
Code
program sort;
uses crt;
const n = 5; {константа - размерность массива}
var i, j, k: integer; {переменные}
r: char; {символьная переменная}
a: array[1..n] of char; {массив символов}
begin
clrscr; {очистка экрана}
{ввод массива}
for i:=1 to n do {в цикле по эл-там массива}
begin
write('El-t nomer ', i,': ');
readln(a[i]); {чтение с клавиатуры значения в эл-т массива}
end;
{упорядочение элементов массива}
k := 0;
for i:=1 to n-1 do {цикл от первого до предпоследнего эл-та массива}
for j:=i+1 to n do {цикл от i+1 ого эл-та до последнего}
if a[i]>a[j] then {если i-тый эл-т больше чем j-тый, то }
begin
k := k + 1; {меняем их местами и увеличиваем на 1 счетчик замен}
r := a[i];
a[i] := a[j];
a[j] := r;
end;
writeln;
writeln('Sorted massiv:'); {выводим отсортированный массив и кол-во перемещенных эл-ов}
for i:=1 to n do
write(a[i],' ');
writeln;
write('kol-vo otsortirovannih el-tov = ', k);
readkey;
end.