В массиве хранится информация о стоимости каждой из 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 можно и тут поменять . Как угодно)