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

const n=50;vara:array[1..n] of integer;m,i,j:integer;beginrandomize;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 можно и тут поменять . Как угодно)