Создать программу в Delphi: Найти площадь треугольника, построенного на двух векторах, заданных своими координатами

#include <iostream>

#include <vector>

using namespace std;

int main() {

   int m, n, x, y;

   cin >> m >> n;

   int a[m][n];

   for (int i = 0; i < m; ++i) {

       for(int j = 0; j < n; ++j) {

           int v;

           cin >> v;

       a[i][j] = v;

       }

   }

   int d;

   int value = 0;

   cin >> d;

   for (int i = 0; i < d; ++i) {

       cin >> x >> y;

       value += a[x - 1][y - 1];

       a[x - 1][y - 1] = 0;

   }

   cout << value;

   return 0;

}

Объяснение:

#include <iostream>

using namespace std;

int main()

{

  int a;

  cin >> a;

  int mas[a][a];

  for(int i = 0; i<a; i++){

      for(int g = 0; g<a; g++){

          int t;

          cin >> t;

          mas[i][g] = t;

      }

  }

  for(int i = 0; i<a; i++){

      swap(mas[i][i] , mas[a-i-1][i]);

  }

  for(int i = 0; i<a; i++){

      for(int g = 0; g<a; g++){

          cout << mas[i][g] << ' ';

      }

      cout << endl;

  }

}

Объяснение: