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

ge2004 ge2004    2   19.05.2019 02:50    0

Ответы
miroslavuvarovozq4v4 miroslavuvarovozq4v4  12.06.2020 08:07

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 можно и тут поменять . Как угодно)

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика