В массиве хранится информация о стоимости каждой из 50 книг. Вывести на экран стоимости 10 самых дешевых книг.

const n=50;

var

a:array[1 ... n] of integer;

m, i, j:integer;

begin

randomize;

for i:=1 to n do begin

a[i]:=random (3600) + 300;

write (i,'. ', a[i]);

end;

for j:=1 to n-1 do begin

for i:=1 to n-1 do

if a[i]>a[i+1] then begin

m:=a[i];

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

a[i+1]:=m;

end;

end;

writeln;

for i:=1 to 10 do writeln (i,') ', a[i]);

end.

То-что курсивом это организация ввода в массив цен. Если у вас другой способ то измените. 3600 это max цена, а 300 min можно и тут поменять. Как угодно)