void __fastcall TForm1 Button1Click TObject Sender int for int for int

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
void __fastcall TForm1::Button1Click(TObject *Sender) {
int с = 0;
for (int i=0; i<n; i++) {
for (int j=1; j<m-1; j++) {
if ( StringGrid1->Cells[i][j] > StringGrid1->Cells[i][j+1] && StringGrid1->Cells[i][j] < StringGrid1->Cells[i][j-1]) kol++;
}
}
if ( kol==0) Label3->Caption="��� ����������";
else Label3->Caption="����� ��������� � ������� ����� ��������� ������� ������ ���, � ������ � ������ ="+
FloatToStr(kol);
}