[Valentinich]

НЕ могу найти среж\днее значение . данные забиты в массиве. а правильно считать - не хочет. в Чём Ошибка ??
Вот:

Код:

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: Пользуемся тегами!