15 lines
377 B
ObjectPascal
15 lines
377 B
ObjectPascal
/// Ìîäóëü óïðîùåííîé ñòðóêòóðû
|
|
unit MyUnit; // èìÿ ìîäóëÿ äîëæíî ñîâïàäàòü ñ èìåíåì ôàéëà
|
|
|
|
// Äîêóìåíòèðóþùèå êîììåíòàðèè îòîáðàæàþòñÿ ïðè íàâåäåíèè íà èìÿ êóðñîðà ìûøè
|
|
/// Âîçâðàùàåò ìàêñèìàëüíûé ýëåìåíò â ìàññèâå
|
|
function Max(a: array of integer): integer;
|
|
begin
|
|
Result := integer.MinValue;
|
|
foreach x: integer in a do
|
|
if x>Result then
|
|
Result := x;
|
|
end;
|
|
|
|
end.
|