Выполнить задания в Pascal, ответ представить в виде кода Pascal. 1. Ввести М. Вычислить М!
2. Вывести квадраты целых чисел, кратных 3 в диапазоне от 3 до 21

#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;

}

Объяснение:

Считываем матрицу. потом смотрим по каким клеткам ходит мудрец и складываем значения с клеток в отдельную переменную. там, где мудрец побывал, клетку матрицы заменяем на 0.

P. s. Если , жмякните на " " .

#include <iostream>

using namespace std;

int main() {

  int n, m;

  cin >> n >> m;

  int a[100][100];

  // чтение

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

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

          cin >> a[i][j];

      }

  }

  int max = a[0][0], max_i = 0, max_j = 0;

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

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

          if (a[i][j] > max) {

              max = a[i][j];

              max_i = i;

              max_j = j;

          }

      }

  }

  cout << max_i << " " << max_j;

  return 0;

}

Объяснение: