14 lines
260 B
ObjectPascal
14 lines
260 B
ObjectPascal
uses MyUnit; // ïîäêëþ÷èëè ìîäóëü
|
|
|
|
const Sz = 10;
|
|
|
|
var a: IntArr;
|
|
|
|
begin
|
|
Assert(sz<=Size,'Ðàçìåð ìàññèâà äîëæåí áûòü <='+Size.ToString);
|
|
FillArr(a,Sz);
|
|
writeln('Ñîäåðæèìîå ìàññèâà: ');
|
|
WriteArr(a,Sz);
|
|
writeln('Ìèíèìàëüíûé ýëåìåíò: ',Min(a,Sz));
|
|
end.
|