Отсортировать массив по возрастанию - PascalABC.NET
Формулировка задачи:
дан целочисленныймассив A(a1..an). отсортировать массив по возростанию начиная с минимального элемента
Решение задачи: «Отсортировать массив по возрастанию»
textual
Листинг программы
begin
var n := ReadLnInteger('n =');
var a : array of Integer;
SetLength(a, n);
for var i := 1 to n do
a[i-1] := ReadLnInteger('a[' + i.ToString + '] =');
System.Array.Sort(a);
WriteLn(a);
end.
Объяснение кода листинга программы
- В первой строке программы считывается количество элементов массива с помощью функции ReadLnInteger, которой передано имя переменной
nи сообщение для пользователяn =. Значение переменнойnокругляется вниз до целого числа. - Затем создается массив типа array of Integer с помощью функции SetLength, которой передано значение переменной
n. - Далее в цикле for с помощью переменной
iсчитываются значения элементов массива с помощью функции ReadLnInteger. В качестве аргументов функции передано имя переменнойa, а также строка, которая формируется с помощью конкатенации строкa[и значения переменнойi, затем преобразуется в строку с помощью метода ToString. - После заполнения массива вызывается метод Sort класса System.Array, который сортирует массив по возрастанию.
- Наконец, с помощью функции WriteLn выводится отсортированный массив на экран.