Составить программу, которая заполняет массив, сортирует по убыванию, обретает максимум м

Составить программку, которая заполняет массив, сортирует по убыванию, обретает максимум м выводит его до и после сортировки.

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a:=a.OrderByDescending(t-gt;t).ToArray; a.Println;
  Writeln('Максимум: ',a.First);
end.

Пример
n= 15
22 26 18 -12 44 44 44 50 -30 11 6 8 -22 2 25
50 44 44 44 26 25 22 18 11 8 6 2 -12 -22 -30
Максимум: 50
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт