Exception
crashes here:
B [(int) buff] = B [(int) buff] +1
Actually the code itself:
void __fastcall TForm1::Button3Click(TObject *Sender) { long m= 356896; long r=95,k=256,b=64,n,f; int buff,i,x; buff=0; double ri = 0; int B[10]; n=StrToInt(Edit1->Text); float A[100]; for (int i=0; i<100; i++) { ri=double((k*r+b)% m); r=ri; ri=ri/m; A[i]=ri; for(int i=0; i<100; i++) { Memo3->Lines->Add(A[i]); buff=A[i]*10+1; Memo4->Lines->Add((int)buff); *******B[(int)buff]=B[(int)buff]+1;******* } for (int i=0; i<10; i++) { Series3->AddXY(i,B[i]/100); } Series4->AddXY(i,(double)random(n)/n); } }