Предмет: Информатика,
автор: camosad669
Класс из 25 человек сдал экзамен,
нужно составить рейтинг учеников по убыванию баллов ( диапазон баллов от 20 до 100).
camosad669:
Ты поможешь?
Ответы
Автор ответа:
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.
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: mahsa27ka80
Предмет: Геометрия,
автор: sicenkonikita
Предмет: Математика,
автор: renaaliyeva887
Предмет: Математика,
автор: Incognito1231
Предмет: Математика,
автор: jmptwm12368