setscaledcontents:在一个整型数组中查找输入一个整数找到该元素后求它前面的所有整数之和找不到则返回-1

int FindSum(int *data, int x)
{
int i,t,sum=0;
for (i=0;i<n;i++)
{
t=*data++;
if (t==x) return sum;
sum+=t;
}
return -1;
}

int FindSum(int *data, int x)
{
int i,t,sum=0;
for (i=0;i<n;i++)
{
t=*data++;
sum+=t;
if (t==x) return sum;
}
return -1;
}

string [] s;
bool K=false;
int tag;
int Sum=0;
for(int i=0;i<s.Length;i++)
{
if(s[i]==tag)
{
K=true;
break;
}
Sum+=s[i];
}
if(!K)
{
Sum=-1;
}
return Sum;

function GetCount(NumberArry:Array of Integer;Number:Integer):LongWord;
var
I:Integer;
Start:Boolean;
begin
I:=0;
Start:=False;
Result:=0;
while I<Length(NumberArry) do
begin
if Start then Result:=Result+NumberArry[i];
if NumberArry[i]=Number then Start:=True;
Inc(I);
end;
if Start=False then Result:=-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[0..10] of integer;
i:integer;
begin
for i:=0 to 10 do
a[i]:=i;

showmessage(IntToStr(GetCount(a,5)));

end;