Сортування підрахунком.

program pidraxynok;

var n, i, j, k: integer;

A: array [1..255] of byte;

B: array [1..255] of byte;

begin

clrscr; randomize;

write ('Vvedit rozmirnist masuvy: ');

readln (n);

for i:=1 to n do a[i]:=random(100);

Заповнення масиву випадковими числами

writeln ('Pochatkovuj masuv:');

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

виведення заповненого масиву на екран

for i:=1 to n do

перебір всіх елементів масиву

begin

k:=0;

for j:=1 to n do

пошук місця для кожного елемента в новому масиві

if a[j]<a[i] then k:=k+1;

b[k+1]:=a[i];

запис кожного елемента на знайдене місце в новий масив

end;

writeln; writeln;

writeln ('Vidsortirovanuj masuv:');

for i:=1 to n do write (b[i]:6);

виведення відсортованого масиву

readln

end.