[volery]

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

Код:

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;