procedure SrArP( const ar:array of real; out sr:real);Возникает ошибка... откуда
компилятор FPC, но на TP ошибка таже...
вся, вроде простая, процедура //могут быть еще ошибки
procedure SrArP( const ar:array of real; out sr:real);)
var
i, sum:real;
begin
for i:=Low(ar) to High(ar) do if Positive(ar[i]) then sum:=sum+ar[i];
s:=sum/(High(ar) - Low(ar));
end;
заранее благодарен.