Массив: Определить количество элементов матрицы, у которых слева находится элемент меньше его, а справа – больше.

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n = 5;
int m = 3;
 
double **a; // Декларации указателей
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
          int k=0;
randomize();
  StringGrid1->ColCount = m+1;
  StringGrid1->RowCount = n+1;
  StringGrid1->Cells[0][0] = "Матрица A";
        for(int i=1; i<=n+1; i++)
        StringGrid1->Cells[0][i]="i="+IntToStr(i);
               for(int j=1; j<=m+1; j++)
                   StringGrid1->Cells[j][0]="j="+IntToStr(j);
      for(int i=1; i<n+1; i++)
      {
             for(int j=1; j<m+1; j++)
                 StringGrid1->Cells[i][j]=IntToStr(k++);
       }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
        if(n>5)
        {
                ShowMessage("Максимальное количество 5!");
                n=5;
                Edit1->Text="5";
        }
        if(n<1)
        {
                ShowMessage("Минимальное количество 1!");
                n=1;
                Edit1->Text="1";
        }
 
        if(m>5)
        {
                ShowMessage("Максимальное количество 5!");
                m=5;
                Edit2->Text="5";
        }
        if(m<3)
        {
                ShowMessage("Минимальное количество 3!");
                m=3;
                Edit2->Text="3";
        }
 
 
    n = StrToInt(Edit1->Text);
    m = StrToInt(Edit2->Text);
    StringGrid1->ColCount = m+1;
    StringGrid1->RowCount = n+1;
    // Ввод в левую верхнюю ячейку таблицы названия массивов
    StringGrid1->Cells[0][0] = "Матрица A";
    for(int i=1; i<=n;i++)
        StringGrid1->Cells[0][i]="i="+IntToStr(i);
    for(int i=1; i<=m;i++)
        StringGrid1->Cells[i][0]="j="+IntToStr(i);
      for(int i=1; i<m+1; i++)
      {
             for(int j=1; j<n+1; j++)
                 StringGrid1->Cells[i][j]=IntToStr(random(21)-10);;
       }
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 int i,j,k;
 
 
    a = new double*[n];     // Захват памяти под указатели
 
    for(i=0; i<n;i++)
        a[i] = new double[m];   // Захват памяти под элементы
 
    for(i=0; i<n;i++)
 
        for(j=0; j<m;j++)
        {
            a[i][j]=StrToFloat(StringGrid1->Cells[j+1][i+1]);
    }
 
    // определяем количество "особых" элементов
   k=0;
 
       for(int i=0;i<n;i++)
 
        {
        for(int j=1;j<m-1;j++)
 
           if(a[i][j-1]>a[i][j]&&a[i][j+1]<a[i][j])
           k++;
          }
 
 
 
 
    if(k==0)
        Label3->Caption = "Матрица не содержит особых элементов";
    else
        Label3->Caption = "Количество особых элементов: " + IntToStr(k);
 
 // Освобождение памяти
    for(i=0; i<n;i++)
        delete []a[i];
 
    delete []a;
}
//---------------------------------------------------------------------------