Отсортировать последовательность 25 1 13 42 8 6 14 методом сортировки подсчетом.

Const   n = 7; type   vector = array[1..n] of integer; procedure sortbycount(a: vector; kol: integer; var b: vector); {сортировка подсчетом} var   i, j: integer;   c: array[1..50] of integer; begin   for i : = 1 to 50 do c[i] : = 0;   for j : = 1 to kol do       c[a[j]] : = c[a[j]] + 1;   for i : = 2 to 50 do       c[i] : = c[i] + c[i - 1];   for j : = kol downto 1 do   begin       b[c[a[j]]] : = a[j];       c[a[j]] : = c[a[j]] - 1   end end; var   a: vector : = (25, 1, 13, 42, 8, 6, 14);   b: vector;   i: integer; begin   writeln('исходный массив');   for i : = 1 to n do write(a[i]: 4);   writeln;   sortbycount(a, n, b);   writeln('отсортированный массив');   for i : = 1 to n do write(b[i]: 4); end. тестовое решение: исходный массив   25    1  13  42    8    6  14 отсортированный массив     1    6    8  13  14  25  42

да есть такие но они старые.так что ты права! щас они не используются