Срочно. Помогите, пожалуйста. Дам 25 баллов. Напишите программу, которая заполняет массив...

Question

Срочно. Помогите, пожалуйста. Дам 25 баллов. Напишите программу, которая заполняет массив случайными числами в диапазоне [0,20] и сортирует его в порядке убывания, начиная с указанного номера элемента

Answer 1

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

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,0,20); a.Println;
  var k:=ReadInteger('С какого элемента сортировать?');
  Assert(k.Between(0,n-1),'Введено недопустимое значение');
  a:=(a?[:k-1]+a[k-1:].OrderByDescending(t->t)).ToArray; a.Println
end.

Пример
n= 13
13 10 4 18 4 1 19 9 14 12 6 15 7
С какого элемента сортировать? 5
13 10 4 18 19 15 14 12 9 7 6 4 1

Comments

Спасибо большое, но есть пару вопросов? ReadInteger это что?

---

спс