Создайте массив , содержащий 25 различных целых чисел . Содержимое массива

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

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

begin
  var a:=Arr(30,-30,94,45,-6,1,2,-50,25,-84,-55,-33,-31,-66,
      34,72,26,-3,-13,27,-97,57,-42,29,-9);
  Writeln('Начальный массив'); a.Println;
  Sort(a);
  Writeln('Упорядоченный по возрастанию массив'); a.Println;
  Writeln('Наибольший элемент ',a.Last,', малый ',a.First)
end.

Пример
Начальный массив
30 -30 94 45 -6 1 2 -50 25 -84 -55 -33 -31 -66 34 72 26 -3 -13 27 -97 57 -42 29 -9
Упорядоченный по возрастанию массив
-97 -84 -66 -55 -50 -42 -33 -31 -30 -13 -9 -6 -3 1 2 25 26 27 29 30 34 45 57 72 94
Наибольший элемент 94, минимальный -97
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт