ребят помогите
надо что бы в ответе выдавал сумму чисел которое введены в стринг грид
на данный момент работает только с целыми
вот код
Код:
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);
не хочет
