Question

Класс из 25 человек сдал экзамен,
нужно составить рейтинг учеников по убыванию баллов ( диапазон баллов от 20 до 100).

Answer 1

===== 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.