Правила форума
High.PASЯзык:
Русский
English
{High.PAS}
{ Пример программы для функции High }
procedure Sum(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;
var
I : Word;
S : Real;
begin
S := 0;
for I := 0 to High(X) do
S := S + X[I];
Sum := S;
end;
::
::
::
