по ключам не правильно считает )

[Black_Wolf]

Есть масив тип булевый необходимо данные в масиве по ключю если совпадает с ключом то +1 а оно у меня не правильно считает 6 как не крути )

begin
//      øêàëà ëæè
//Îòâåò "äà" íà âîïðîñû: 6, 24, 36.

//Îòâåò "íåò" íà âîïðîñû: 12, 18, 30, 42, 48, 54.
bal:=0  ;
if    masotvet[6]=1  then   inc(bal) ;
if    masotvet[24]=1  then  inc(bal) ;
if    masotvet[36]=1  then  inc(bal) ;
if    masotvet[12]=0  then  inc(bal) ;
if    masotvet[18]=0  then  inc(bal)  ;
if    masotvet[30]=0  then  inc(bal)   ;
if    masotvet[42]=0  then  inc(bal) ;
if    masotvet[48]=0  then  inc(bal) ;
if    masotvet[54]=0  then  inc(bal)  ;
        mmo1.Lines.Add(IntTostr(bal));
if bal>4   then     ShowMessage('ответам нельзя доверять') else

[phomm]

Покажите побольше кода, возможно, у Вас индексация массива с 0 а Вы считаете, вопросы как от 1, или ещё что-то не так. Может быть у Вас где-то пересечение с глобальной переменной такого же имени.

[Black_Wolf]

Сообщение от phomm

Покажите побольше кода, возможно, у Вас индексация массива с 0 а Вы считаете, вопросы как от 1, или ещё что-то не так. Может быть у Вас где-то пересечение с глобальной переменной такого же имени.

var
  temperament: Ttemperament;
   Quest1: TIniFile;
   voproschechik: Integer; //  ïåðåìåííàÿ äëÿ ñù¸ò÷èêà âîïðîñîâ ääÿ êíîïêè äàëåå
   inV,a:Integer ;
   masotvet:array[1..57] of Integer  ;
implementation
{$R *.dfm}
procedure Ttemperament.btnstartClick(Sender: TObject);
  begin
     voproschechik:=1;
  grptest.Visible:=True;
  Quest1:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest1.ini');
  mmoVop_Azek.lines.add(Quest1.ReadString('Quest'+IntTostr(voproschechik),'V1','íåòó âîïðîñà'));
  btnstart.Visible:=False;
  end;
procedure Ttemperament.btn1Click(Sender: TObject);
var
 i:Integer;
begin
  begin
     a:=0;
     inc(inV);
  lbl6.Caption:=IntTostr(1+inV) ;
   inc(a);
  mmoVop_Azek.lines.Clear;
  inc(voproschechik);
   Quest1:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Quest1.ini');
  mmoVop_Azek.lines.add(Quest1.ReadString('Quest'+IntTostr(voproschechik),'V1','íåòó âîïðîñà'));
  begin
    i:=0;
     if  Vda_a.Checked=True then
     begin
         masotvet[i]:= 1 ;
     end
   else
   if VNo_a.Checked=True then begin
    masotvet[i]:=0 ;
    end;
   i:=+1;
   end;
      if inV=57 then    begin
      // btnrez.Visible:=True ;
        btn1.Visible:=False ;  end;
   end;
   end ;
     procedure Ttemperament.btnrezClick(Sender: TObject);
     var
     i,extrav,emoY,bal:Integer;
begin
//      øêàëà ëæè
//Îòâåò "äà" íà âîïðîñû: 6, 24, 36.

//Îòâåò "íåò" íà âîïðîñû: 12, 18, 30, 42, 48, 54.
bal:=0  ;
if    masotvet[6]=1  then   inc(bal) ;
if    masotvet[24]=1  then  inc(bal) ;
if    masotvet[36]=1  then  inc(bal) ;
if    masotvet[12]=0  then  inc(bal) ;
if    masotvet[18]=0  then  inc(bal)  ;
if    masotvet[30]=0  then  inc(bal)   ;
if    masotvet[42]=0  then  inc(bal) ;
if    masotvet[48]=0  then  inc(bal) ;
if    masotvet[54]=0  then  inc(bal)  ;