}
//-----------------------------------
void __fastcall TForm::Button1Click(Tobject *Sender)
{
int i,j,a[10] [10];

s=0
randomize();
for(i=0;i<5;i++)
for(j=0;j<5;j++)
{
a[i][j]=random(-80)*(-1);
StringGrind1->Cells[i][j]=intToStr(a[i][j]);
}
}
//---------------------------------------------------------

void __fastcall TForm::Button2Click(TObject *Sender)
{
Labe->Caption="s="+FloatTostr(s);
}
//---------------------------------------------------------