Вычислить среднее арифметическое негативных значений элементов двухмерного массива

[DreamzZz]

Помогите пожалуйста(

[DiemonStar]

Ну так приложите свой модуль. Есть подозрение, что не совпадает количество begin-end

[DreamzZz]

Вот работа, кто поможет - будет отблагодарен WMZ

[GetMax]

замените аналогичную процедуру на эту

procedure TForm1.Button3Click(Sender: TObject);
begin
For i:=1 To 4 Do
Begin
  sum := 0;
  count := 0;

  For j:=1 To 5 Do
	If (SG1[i,j] < 0) then
	begin
	  sum := sum + SG1[i,j];
	  count := count + 1;
	end;

  if (count > 0) then
    SG2[i] := sum / count
  else
    SG2[i] := 0
End;
end;

[DreamzZz]

Запустилась наконец-то, но при нажатии на RUN ничего не происходило(

[GetMax]

А что должно произойти? Подозреваю что вам надо вывести элементы из массива SG2. Сделать это можно так например в компонент TMemo

for i := 1 to 4 do
  Memo1.Lines.Add(FloatToStr(SG2[i]))

Вообщем не плохо было бы узнать чего вы ожидаете от программы.

[DreamzZz]

Нужно сделать что бы она выводила - среднее арифметическое негативных значений элементов двухмерного массива.
Вывод должен быть в SG2

Среднее арифм. негативных знач. из первой строки SG1 должна выводиться в первую строку SG2

[GetMax]

У вас SG2 это просто массив и среднеарифмитические значения туда выводятся, но вот на форме их не видно. Поэтому на форму надо кинуть компонент TStringGrid или TMEMO и туда выводить элементы SG2 (см предыдущий пост).

Кроме того у вас не работает загрузка из БД. Исправьте

procedure TForm1.Button7Click(Sender: TObject);
Var
  BasePath : String;
begin
  BasePath := ExtractFilePath(ParamStr(0))+'DB.mdb';
  try
    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
    BasePath + ';Persist Security Info=False';
    With ADOTable1 Do
    Begin
      Active:=True;
      First;
      For i:=1 To 4 Do
      For j:=1 To 5 Do
        begin
          StringGrid1.Cells[j-1,i-1] := IntToStr(Integer(FieldValues['chislo']));
          Next;
        End;
    end;
    AdoConnection1.Close;
  except
    ShowMessage('Ошибка подключения к '+ BasePath);
    Exit
  end;
end;

ДОБАВЛЕНО

У вас данные заносятся в stringgrid1, а работаете вы с SG1. Поэтому значения нужно заносить еще и туда. В процедуры TForm1.Button6Click(Sender: TObject); TForm1.Button2Click(Sender: TObject); TForm1.Button7Click(Sender: TObject); нужно добавить

SG1[i, j] := StrToFloat(StringGrid1.Cells[j - 1, i -1]);

[DreamzZz]

Загрузка работает из БД, просто путь пока не указываю.
Теперь из-за этого кода ошибка.

Какой код для TSG вписать?

[GetMax]

>>Теперь из-за этого кода ошибка.
Какая ошибка? У меня работает. БД хранится в самом проекте.

>> Какой код для TSG вписать?
Если вы про вывод конечных данных, то так

procedure TForm1.Button3Click(Sender: TObject);
begin
  For i:=1 To 4 Do
  Begin
    sum := 0;
    count := 0;
    For j:=1 To 5 Do
	    If (SG1[i,j] < 0) then
	    begin
	     sum := sum + SG1[i,j];
	     count := count + 1;
	    end;

      if (count > 0) then
        SG2[i] := sum / count
      else
      SG2[i] := 0;
   End;
   for I := 0 to StringGrid2.RowCount - 1 do
    StringGrid2.Cells[0, i] := FloatToStrF(SG2[i+1],ffFixed, 4, 2);
end;