high.pas

Пример программы для функции High.

Код примера
 {High.PAS}
 
 { Пример программы для функции High }
 
 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;

Скачать high.pas