[Forengeit]

ребят помогите
надо что бы в ответе выдавал сумму чисел которое введены в стринг грид
на данный момент работает только с целыми
вот код

Код:

procedure TForm3.Button1Click(Sender: TObject);
var
m:real;
n:real;
a: array [1..200] of integer;
summ:integer;
sr:real;
mr:real;
i:integer;
begin
for i:= 1 to 200 do
if length (stringGrid1.cells[i-1,0]) <> 0
then a[i]:=strtoint (stringgrid1.cells[i-1,0])
else a[i]:=0;
summ:=0;
for i:=1 to 200 do
summ:= summ+a[i];
sr:=summ/n;
label2.caption:='сумма элементов '+inttostr(summ)+#13+ 'среднее арифметическое: '+floattostr(sr);
for i:= 1 to 200 do
if length (stringGrid3.cells[i-1,0]) <> 0
then a[i]:=strtoint (stringgrid3.cells[i-1,0])
else a[i]:=0;
summ:=0;
for i:=1 to 200 do
summ:= summ+a[i];
mr:=summ/m;
label5.caption:='сумма элементов '+inttostr(summ)+#13+ 'среднее арифметическое: '+floattostr(mr);
Button2.visible:=false;
Button1.visible:=true;
label3.hide;
label4.hide;
button2.Show;
button3.Show;
RadioGroup1.show;
Label1.Show;
edit1.show;
button1.Hide;
label2.Show;
label5.show;

end;

пробывал уже
summ:real;
label5.caption:='сумма элементов '+floattostr(summ)+#13+ 'среднее арифметическое: '+floattostr(mr);
не хочет

[Demonuka]

Необходимо и массив делать нецелочисленного типа
a: array [1..200] of real;
А вместо

Код:

then a[i]:=strtoint (stringgrid1.cells[i-1,0])

писать

Код:

then a[i]:=strtofloat (stringgrid1.cells[i-1,0])

[Forengeit]

ошибка
на

Код:

else a[i]:=0; 

все разобрался
спасиб ребят

Код:

 
a: array [1..200] of integer;

Надо было всего лишь на real поменять

[Forengeit]

ребят
опять созрел вопрос
среднее число считает не верно
код преждний
N это число столбцов, которое вводит пользователь