Question

Помогите с информатикой!!!

Answer 1

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество учеников:');
  var a:=ArrRandom(n,60,198); a.Println;
  a.Transform(t->t<100?t+100:t);
  a.OrderBy(t->t).Println
end.

Пример
Количество учеников: 15
136 77 124 95 126 155 168 70 189 117 192 112 159 174 60
112 117 124 126 136 155 159 160 168 170 174 177 189 192 195