Класс из 25 человек сдал экзамен,
нужно составить рейтинг учеников по убыванию баллов ( диапазон баллов от 20 до 100).
BobbyFresnel:
Ну это образно сказано, по аналогии. Как пузырьки всплывают в воде, так и данные с минимальным значением "всплывают" по ходу сортировки к началу массива.
Ответы
Ответ дал:
0
===== PascalABC.NET ====
begin
var a := ArrRandom(25, 20, 100);
a.Println.SortedDescending.Println
end.
===== Free Pascal =====
const
n = 25;
var
a: array[1..n] of integer;
i, j, t: integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := random(81) + 20;
write(a[i], ' ')
end;
writeln;
// пузырьковая сортировка по убыванию
for i := n - 1 downto 1 do
for j := 1 to i do
if a[j] < a[j + 1] then
begin
t := a[j];
a[j] := a[j + 1];
a[j + 1] := t
end;
// вывод результатов
for i := 1 to n do
write(a[i], ' ');
end.
Приложения:
![](https://st.uroker.com/files/2a0/2a0020fccde77b0db14ccf41ba0ec0f7.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад