[volery]

я зделал, и среднее значение счтает! Но нехочет находить одинаковые числа...Может кто подскажет где здесь ошибка?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Var Sum,A,i,sum2,sum3:integer; begin   Sum:=0; i:=0;   while StringGrid1.Cells[0,i]<>'' do     begin       A:=StrToInt(StringGrid1.Cells[0,i]);       Sum:=Sum+A;       Inc(i)     end;       Sum2:=Sum div i;       Sum3:=0;       if sum=sum2 then sum3:=sum3+1;       ShowMessage('Sum is '+IntToStr(sum3)) end;