Правила форума
High.PASLanguage:
Русский
English
{High.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the High function.}
procedure
Sum(var X: array of Real): Real;
var
I: Word;
S: Real;
begin
S := 0;
for I := 0 to High(X) do S := S + X[I];
Sum := S;
end;
::
::
::
