Помогите найти ошибку
НЕ могу найти среж\днее значение . данные забиты в массиве. а правильно считать - не хочет. в Чём Ошибка ??
Вот:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | rocedure TForm1.Button_calcClick(Sender: TObject);
var k,i,j,s:integer; g:real;
begin
k:=0;
s:=0;
g:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
s:=s+a[i,j];
k:=k+1;
end;
g:=s/k;
memo3.Lines.Add(FloatToStr(g));
k:=0;
s:=0;
g:=0;
end;
Button_calc.Enabled:=False;
end;
|
Admin: Пользуемся тегами!
Последний раз редактировалось Admin, 29.09.2010 в 14:46.
|
29.09.2010, 14:03
Древовидный вид