37 lines
670 B
ObjectPascal
37 lines
670 B
ObjectPascal
Uses System, PABCSystem;
|
|
|
|
const Size = 10;
|
|
|
|
procedure PrintArray<T>(a: array of T);
|
|
begin
|
|
foreach v: T in a do
|
|
Write(v, ' ');
|
|
Writeln;
|
|
end;
|
|
|
|
var a: array of integer;
|
|
|
|
begin
|
|
SetLength(a, Size);
|
|
// Çàïîëíåíèå ìàññèâà
|
|
for var i:=0 to a.Length-1 do
|
|
a[i] := Random(100);
|
|
|
|
// Âûâîä âñåõ ýëåìåíòîâ ìàññèâà
|
|
PrintArray(a);
|
|
|
|
// Ñîðòèðîâêà ìàññèâà (çíàê & èñïîëüçóåòñÿ äëÿ òîãî,
|
|
// ÷òîáû âîñïîëüçîâàòüñÿ êëþ÷åâûì ñëîâîì array ïðè îáîçíà÷åíèè êëàññà Array)
|
|
&Array.Sort(a);
|
|
|
|
PrintArray(a);
|
|
|
|
// Îáðàùåíèå ìàññèâà
|
|
&Array.Reverse(a);
|
|
|
|
PrintArray(a);
|
|
|
|
// Ïîèñê âõîæäåíèÿ ýëåìåíòà â ìàññèâ
|
|
var i := &Array.IndexOf(a, 99);
|
|
Writeln(i);
|
|
end. |