pascalabcnet/InstallerSamples/NETLibraries/System.Array/SystemArray1.pas

24 lines
613 B
ObjectPascal
Raw Normal View History

const Size = 10;
2015-05-14 22:35:07 +03:00
begin
// Заполнение массива
var a := ArrRandomInteger(Size);
// Вывод всех элементов массива
a.Println;
2015-05-14 22:35:07 +03:00
// Сортировка массива (знак & используется для того,
// чтобы воспользоваться ключевым словом array при обозначении класса Array)
Sort(a);
2015-05-14 22:35:07 +03:00
a.Println;
2015-05-14 22:35:07 +03:00
// Обращение массива
Reverse(a);
2015-05-14 22:35:07 +03:00
a.Println;
2015-05-14 22:35:07 +03:00
// Поиск вхождения элемента в массив
var i := a.IndexOf(99);
Println(i);
2015-05-14 22:35:07 +03:00
end.