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

[DreamzZz]

Спасибо) Работает, еще одна маленькая проблема с кнопкой Random
http://i.piccy.info/i7/ab6faf9c4faac...2114530/11.jpg

[GetMax]

Наоборот, сначала заносите значение в stringgrid1, а потом от туда в SG

For i:=1 To 4 Do
  For j:=1 To 5 Do
  Begin
    StringGrid1.Cells[j-1,i-1] := FloatToStr(50 - Random(101));
    SG1[i, j] := StrToFloat(StringGrid1.Cells[j - 1, i -1]);
  End;

В bitton6Click и button7Click должно быть так же.

[DreamzZz]

Работает) Спасибо огромное! Отблагодарю как и обещал)