Question

Люди, хеелп Сортировка массива (метод пузырька; метод простого выбора). В массиве хранится информация о стоимости каждой из 50 книг. Вывести на экран стоимости 10 самых дешевых книг. паскаль.

Answer 1

uses crt;
var a:array[1..50] of integer;
i,j,k,min:integer;
begin
writeln('Стоимости книг: ');
for i:=1 to 50 do begin
a[i]:=random(99-20+1)+20; {Цены книг задаются рандомно по формуле random(max-min+1)+min; то есть, если нужны другие цены, то менять их здесь}
write(a[i]:3);
end;
writeln;
writeln('Стоимость десяти самых дешёвых книг:');
min:=99;
for j:=1 to 10 do begin
for i:=1 to 50 do begin
if a[i]<min then begin min:=a[i];k:=i;
end;
end;
write(min:3);
a[k]:=99;
min:=99;
end;
writeln;
end.